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TO THE READER 



If you bought this book we assume that you already have a TRS-80 microcomputer, or 
the use of one in a school or office. And we hope that you have read, enjoyed, and 
learned from our earlier book, TRS-80 BASIC* (Or another book that introduced 
you to BASIC and the TRS-80 computer.) This book starts where TRS-80 BASIC 
ended and will give you more hours of pleasure from your computer than ever before. 

We begin with a review of commands and statements and move quickly to a detailed 
guide to your TRS-80's memory so you can get the most out of PEEK and POKE and 
use your computer most efficiently. We then progress through Graphics, Cassette and 
Disk Files, and Animation. Lots of programs demonstrate what is taught and there is 
plenty of opportunity to change programs, add to them, and write your own. You get 
some tricks for saving space and many special programs that range from car races to 
phone indices. And Self- Tests let you check your progress and understanding through- 
out the book. 

If you have read any of our other books you know that we feel computer terminology 
and concepts can be introduced within a framework of fun and exploration, and that 
when we do this, true learning takes place. Microcomputers are here to stay. Every- 
thing in this book is directed toward helping you fully explore the workings and uses of 
your TRS-80 microcomputer. 

The next section tells you How to Use This Book. Why don't you first browse 
through that, then begin your further adventures with your TRS-80 and BASIC. 



*TRS-80 BASIC, Albrecht, Inman, and Zamora, (C) John Wiley and Sons, Inc., 1980. 



HOW TO USE THIS BOOK 



This book is a Self-Teaching Guide. This means that you can use the book to teach 
yourself. Each chapter of the book is composed of short bites of information present- 
ing a single idea or topic on the BASIC language, the TRS-80, a special feature, or a 
program that is being developed. Throughout the sections there are lots of questions 
and exercises to be done. 

We encourage you to use this book while you are in front of a TRS-80 computer. 
Try the programs and exercises that are discussed on the machine. Let the TRS-80 be 
your "teacher." 

The first page of each chapter briefly lists what the chapter is to cover. Scan that 
list. If you feel you already know the material to be covered skip to the back of the 
chapter and take the Self-Test. You can review the chapter if you have trouble an- 
swering the questions. 

The material in the book gets more challenging as you move through the chapters in 
order. If you have only a basic knowledge of BASIC and your TRS-80 start with the 
first chapters and don't try to skip around. If you know quite a lot of BASIC and are 
pretty familiar with your computer look at the Table of Contents and feel free to ex- 
plore some of the later chapters. 

As a final note before you start, be aware that as you use the book, enter lines into 
your computer, answer Self-Test questions, and do the exercises: 

YOU CANNOT DO ANYTHING WRONG! 

There is no way you can "hurt" or "harm" the computer by what you type into it. 
You may make mistakes, but that is a natural part of learning and exploration. In 
fact, we introduce deliberate errors in several places as part of the learning process. 

So, explore, enjoy, and tell us about your discoveries as you use your Radio Shack 
TRS-80 microcomputer. 



CHAPTER ONE 

Introduction 



Welcome to this second book in a series designed to help you discover and use more of 
the features of your Radio Shack TRS-80 Model I computer. In the first book, TRS- 
80 BASIC* we assumed you were a newcomer to computers and computing. We used 
a frame-by-frame presentation of material that kept everything down to small, bite- 
sized lumps. Here, however, we assume that you have finished the first book (or its 
equivalent) and that you are familiar with some aspects of the Level II BASIC lan- 
guage. The material is presented as a series of chapters that expand on what was cov- 
ered in the beginner's text. It includes detailed discussions of several new language 
features of your TRS-80 and self-test exercises and answers at the end of nearly every 
chapter. 




* Albrecht, Inman, and Zamora, TRS-80 BASIC: A Self-Teaching Guide. John Wiley & Sons, Inc., N.Y., 
N.Y., 1980. 
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In this chapter, we will preview some of the things you will learn and briefly re- 
view the commands, statements, terms, and other features of BASIC that we covered 
in TRS-80 BASIC. In chapter 2, we will assume that you are familiar with the ele- 
ments of BASIC and begin introducing new features of TRS-80 BASIC. 

Throughout this book, each new BASIC statement is described in detail when it 
is first used. Longer programs are broken into logical blocks, or sections, and each sec- 
tion is explained thoroughly. When the user must interact with a program, there are 
sample program results with sketches of video displays. The material covered is sum- 
marized at the end of each chapter. 

We have worked to make this book easy to read, to understand, and to use. Some 
programs appear more than once. These repetitions provide continuity and emphasize 
relationships between new and previously used instructions. Elementary forms of some 
programs appeared in our beginners' book. 

The Level II BASIC Reference Manual, supplied with your TRS-80 Model I 
computer, is used often as a source for discussions of BASIC statements, commands, 

. J r- J.: o r> _ j:- oi i_ i ^-A «to n\c<r^ -loarl no 

clllU 1 U11V;L1U11&. OUlllC IxaUlU Oliaviv liaiuwctiu aitu awitwa-l.v plwvUAVt.^ caiv waow u^,./v« 

examples. 

The central theme of the book is practical, application-based uses of the ma- 
chine. In some cases, the information is developed in terms of educational or recrea- 
tional programs. Where possible we indicate several areas where a technique or ap- 
proach may apply. You will also be introduced to file handling techniques and applica- 
tions of your TRS-80 cassette recorder and disk. The TRS-80 has so many features 
and capabilities that we were hard pressed to keep tins second book down to its current 
size. 

We do, however, cover new statements, such as PEEK and POKE, the many 
mathematical and ERROR functions and routines, and most other features of TRS- 
80 Level II BASIC that were not described in our first book. We include two full chap- 
ters of useful, powerful graphic techniques and a chapter on the generation of sound 
and music, using inexpensive devices that plug into your TRS-80. 

The addition of easy-to-use graphics and sound has lifted computer use out of 
the number and word crunching business and industrial world and greatly enhanced 
the computer's recreational and educational aspects. Today's microcomputers, such as 
the TRS-80, have created an opportunity for nearly everyone to own, use, and master 
the "mysteries" of a small computer. The small computer is finding its way into the 
home, the school, and the small business. Thousands of programs are being developed 
for these machines to perform a wide variety of educational, recreational, and busi- 

— l„*^J 
liC£>a-i viatwu La^jiva. 

With the steady increase of programs and computer users, the number of new 
applications for these powerful tools will continue to grow. New users bring new inter- 
ests and avocations that lead to different problems to be solved. Everyone benefits as 
new solutions are discovered and shared, opening up new areas to apply the tool. The 
cycle feeds on itself, and everyone has an opportunity to be an inventor and creator in 
this rapidly growing field. 

This book will help you expand your knowledge of Level II BASIC and expand 
vour abilitv to create orosrams. As vou make ureater use of your TlR.S-80, you will 
tma tliat you ana tnose arouno you nave oom me aouiiy anu sKiii lo design prugrams 
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that perform any number of tasks you may wish to do. By the time you complete your 
tour of this book, you will have used nearly every BASIC language command and 
statement available on a Level II 16K machine. For those of you with larger machines 
(24K, 32K, and so forth), the material in this book will work as well. 

As always, we encourage you to venture forward into the book with a spirit of 
exploration and discovery. We believe that learning to use a small computer can be 
both fun and educational. In that vein, we occasionally try to lighten things here and 
there with a bit of humor, and even go so far as to POKE (ooops, there we go — poke) 
fun at ourselves. Enjoy learning some new ways to use your TRS-80, and share what 
you learn with those around you. Are you ready? Let's go! If you need to review, move 
on to the next section. If not, skip the review, and look at chapter 2 for a "guided tour 
of memory." 



Things We Expect You to Know 

Although we assume that you have a background knowledge of Level II BASIC, a 
brief review of the BASIC statements, commands, and functions from the beginner's 
book is presented here. If you feel confident in your knowledge of Level II BASIC, you 
can either pass quickly through the review section or skip on to chapter 2. 



ASC(string) Returns the ASCII code of the first character in the string argument 
specified in parentheses. 

CHR$ (exp) Returns a one-character string of exp, which may be an ASCII, con- 
trol, or graphics code. 




BASIC Statements and Commands 
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Clear n Sets numeric values to zero and strings to null; sets aside n bytes of string 

space in memory. 
CLS Clears the video display. 

DATA item list Holds the data for access by a READ statement; items may be nu- 
meric or string; items are separated by commas. 

DELETE mm-nn Deletes the program lines from line mm through nn. 

DIM array {dim#l, dim#2, . . .dim #k) Reserves storage for a k-dimensional array 
with the specified size per dimension; DIM may be followed by a list of arrays sepa- 
rated by commas. 

r^T\i^ T»..A.- :^ K-u ^ ^j:* A ^ i: — — 

1J.JL/X ji inin -i UL» yuu iii tiio cuit inuuc ctt iinc iniit, 

EDIT Puts you in the edit mode at the last line entered, altered, or in which an error 

has occurred. 
END Ends the execution of a program. 

FOR var = exp TO exp STEP exp Opens a FOR-NEXT loop. STEP is optional — 

if not used, STEP will be 1. 
GOSUB mm Branches to the subroutine beginning at line mm. 
GOTO mm Branches to the line number specified by mm. 

IF exp THEN statement #1 ELSE statement #2 Tests the expression, exp; if True, 
statement #1 is executed and control proceeds to the next program line (unless 
statement #1 is a GOTO); if exp is False, statement #2 is executed; the ELSE state- 
ment #2 is optional. 

INKEYS Reads the keyboard and returns a one-character string, which is the string 

'.;ol!!..> (>f \r!>\! fKcsf 1oG+ T\Tf>CCf^A 

INPUT ''message"; var PRINTs the message (if any) and waits for an input from 

by commas may be used. 
INT {exp) Returns the largest integer that is not greater than the expression, exp. 
LEFTS {string, n) Returns the first n characters of the specified string. 
LEN {string) Returns the length (number of characters) of the string. 
LET var = exp Assigns a value equal to exp to the specified variable, var. 
LIST Lists the entire current program in memory. 

LIST mm-nn Lists only lines mm through nn of a program; -nn is optional. 
MID$ {string, p, n) Returns a substring of the specified string; the length of the 

substring will be n starting with the character in position p. 
NEW Deletes the current program in memory and resets all variables, pointers, etc. 
NEXT var Closes a FOR-NEXT loop; the variable, var, is optional. 
POS (0) Returns a number indicating the current cursor position; the argument (O) 

is a dummy variable. 

PRINT exp Output ths val'jg of exp to the display exp may bs nuriis^ic or string 

variable or constant, or a list of such items. 
FKIJN 1 (a)n Modities the FKIJN 1 statement to begm prmtmg at the display 

position n. 

RANDOM Reseeds the random number generator (starts with new number). 
READ variable list Assigns values to the specified variables starting with the cur- 
rent data item from the DATA statement. 

line; abbreviation REM may be used also. 
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RESET {X, Y) Turns off the graphic blocks at horizontal coordinate X and vertical 
coordinate Y. 

RESTORE Resets the data pointer to the first item in the first DATA statement. 
RETURN Branches to the statement following the last executed GOSUB. 
RIGHTS {string, n) Returns the last n characters of the string specified. 
RND (0) Returns a pseudorandom number between 0.000001 and 0.999999, 
inclusive. 

RND {exp) Returns a pseudorandom integer between 1 and INT {exp), inclusive. 

RUN mm Executes a program beginning at line mm; mm is optional; if not speci- 
fied, the execution begins at the lowest numbered line. 

SET {X, Y) Turns on the graphic block at horizontal coordinate X and vertical coor- 
dinate Y. 

STRINGS («, char) Returns a sequence of n character symbols using the first char- 
acter of char. 

TAB n Modifies a PRINT statement; moves cursor to the specified display position 

(0 through 63) on a given line. 
TROFF Turns off the trace function. 

TRON Turns on the trace function that displays the line number of each line exe- 
cuted. 

VAL (string) Returns the number represented by the characters in the specified 
string. 



Frequently Used Terms 

Backspace key Used to move the cursor left one space and erase the character in 

that space. If the SHIFT key is held down at the same time, an entire line is erased. 
Break key Stops the computer at the current line being executed. 
Cassette recorder Used to store data outside the computer. 
Clear key Clears the TV display. 
Concatenation Joins two or more strings together. 
Cursor Shows where the next printed character will appear. 

Data pointer A pointer (or counter) the computer uses to tell it which item to select 

from a data list. 
Debug To remove errors, or "bugs," from programs. 

Edit mode Allows changes in an existing program without retyping the whole line. 
Empty stringC") A string with nothing in it, not even a space. 
Enter key Tells the computer a command or statement is completed. 
Flag A signal to the computer that some process has been completed and should be 
discontinued. 

Floating point A special method of writing very large or very small numbers. 
Inequality symbols Symbols used to express a relationship between two quantities 

that are not necessarily equal. 
Keyboard The control center of the TRS-80. 
Line number Used to tell the computer which line to execute next. 
Multiple-statement line A program line that contains more than one statement to be 

executed. 
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Numeric variable A variable that identifies a number. 

One-dimensional array A list of numbers or strings arranged in a specific order. 
Order of operations The order in which arithmetic operations are performed within 

a given arithmetic expression. 
Power of numbers Tells how many times a number is to be used as a factor. 
Power supply The TRS-80 power supply converts 1 10- to i20-volt AC to smaller 

DC voltages. 

Print positions Positions on the video display that are numbered from the upper left 

to the lower right (0 through 1023). 
rroiiipi The > symbol tells yuu thai it's your turn to tell the computer what to do. 
RAM (Random Access Memory) Used to store your programs and data. 
Random number A number chosen from a given set of numbers so that each number 

has an equal chajice of being selected. 
Ready A message printed on the video screen that indicates the computer is ready to 

do something. 

ROM (Read Only Memory) Used to store the TRS-80 operating system and the 

BASIC interpreter. 
Rounding numbers Changing values to the nearest specified decimal place. 
Sequence of values Values that come one after another in order. 
String A string of numerals, letters, and/or special characters. 
String variable A variable that identifies a particular string. 
Superscript Specifies the power of a number. 

T^u,!..^ J^Z: -.^-^^.^'j^^.-^i J* j.-vt-l.-i .-.C lu.-.-,.-, J _!™ .-1, .^r—,. ,-! .-..-,1 

M- »» »u'~iuii«Bjii;BHi=»»iwiiiia.« «,«B«.j r\ Ltxijii^ Oi iiUiiitj>dS Ut btiixx^a C-Oribiatxixg, Oi i OVv'H aiiii OOi- 

umns. 
ble. 

Video display The TV screen on which graphics and/or text is shown. 



CHAPTER TWO 

A Guided Tour of Memory 



The TRS-80 performs its wondrous feats with a carefully planned, ingenious use of 
memory. Almost everything that goes on inside the computer uses memory in some 
way. The computer's operating procedures, the BASIC programs you write, and the 
data used by your programs are all stored in memory. 

Did you ever wonder why you lose your programs when the computer is turned 
off, yet the computer is still able to operate when it is turned on again? If the computer 
"forgets" your programs when turned off, how can it "remember" its own operating 
procedures? Stay with us. This chapter presents a map to guide you through TRS-80 
Memory Land. You will see the different kinds of memory and learn how each is used. 
When you finish the chapter, you'll be able to PEEK and to POKE around inside your 
own memory. You'll also have a better understanding of how the computer works and 
how you can use it more efficiently. 

You will learn: 

« how ROMs and RAMs are packaged, 

" how the CPU works with ROM, 

« how to PEEK into ROM, 

» the difference between ROM and RAM, 

• how ROM and RAM are organized, 

• how your BASIC program uses RAM, 

- why the MEMORY SIZE? prompt is used, 

» how memory space is reserved for strings, 

o how to conserve memory space, 

• how to PEEK and/or POKE into RAM, 
« how to use POKE with care, and 

" where the video screen is located and how to use it. 
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What is Memory? 

The first chapter of TRS-80 BASIC* briefly discusses two kinds of memory— ROM 
and RAM. The computer can read information from ROM, but cannot erase or 
change it in any way. Therefore, this type of memory is called Read Only Memory, or 
ROM for short. Information in ROM is permanently stored, much like the informa- 
tion on the pages of this book or the information on a phonograph record. It cannot be 
changed and it is not "forgotten" when the computer is turned off. 

A ROM in a computer can be replaced, just as a book is replaced by a new, re- 
vised edition or a record is replaced in your phonograph. But the information in that 
particular ROM cannot be changed from the keyboard or by a BASIC program. 

The ROMs inside the TRS-80 are enclosed in rectangular packages with 
twenty-four small, metal legs, twelve on each side. These legs make electrical connec- 
tions to the rest of the computer. 




The heart of the computer is called the Central Processing Unit (CPU). It is 
contained in a package similar to the ROM's. Although the CPU does most of the 
work (or processing) for the computer, the ROMs are the boss; they tell the CPU what 
to do, how and when to do it, and where to put the results. 

When the TRS-80 is turned on, the CPU immediately looks at a certain memory 
location in ROM to see what it should do. The ROM then takes over, giving directions 
to "fire up" the system and get it READY for your input. 

Since the ROM is so important to the computer, it is placed at the beginning of 
the memory block. Regardless of whether you have a 4K, 16K, 32K, or other size 
TRS-80, the ROM occupies the memory locations numbered from through 12287. 
Therefore, every TRS-80 Level II computer has a 1 2K ROM (K for thousand). Each 
K actually refers to 1024 locations. 




N.Y. 1980. 
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12K = 12 X 1024= 12288 (Numbered through 12287) 



Location 
(or Address) 
00000 r 



Level n 
BASIC ROM 



12287 



Remember, you can only read information from ROM. Nothing can be written 
into the memory locations from through 12287. 



PEEK into ROM 



You can read information from ROM using Level II BASIC'S PEEK function. This 
function lets you PEEK at (or read) the information stored in one memory location. 
PEEK can be used with a PRINT statement in the Immediate Mode, as well as within 
a program. 



PRINT P|EK(i!3!2j3)-*^ Parcnthescs 

Display on \ The memory location that 

the screen we are PEEKing into 

Now, turn on your TRS-80 and PEEK around a bit. 




• When it says MEMORY SIZE? you press ENTER 



This is what you see: 



MEMORY SIZE? 
RADIO SHACK LEVEL 
READY 



II BASIC 
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e You type: PRINT PEEK( 1 000) and press ENTER 



This is what you see: 



MEMORY SIZE? 

RADIO SHACK LEVEL II BASIC 



PRINT PEEK( IRRp) 

56 
READY 
>- 



By PEEKing, we found that the number 56 is stored in kOM location lOOO. 
Hmmm, wonder what is in location 0. 



You type: PR INT PEEK(O) 
It prints: 24 3 



243. Hmmm! 
I wonder what 
that means 



kjO lai, you iOUllG d iitiiiiUCi yz-^j / iii iiiviilOi j iOCciliwii v> ciiivi ciiiOi-iiCi iiiiiiiLiC/i 

(56) in memory location 1000. Is that all you're going to find — a bunch of numbers? 
Try another. This time find out if the PEEK statement can use a variable instead of 
the numeric location. 

• You type: A = 1 

^ You type: PRINT PEEK(A) 

It prints: 1 7 5 (This number is in memory location 1 , since A = 1 .) 

You now know this about the Level II ROM: 



Location 


Value 





243 


1 


175 











e 


O 





1000 


56 
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To find what is in the first few locations, type in the following single line and press 
ENTER: 

CLS: FOR A=!2 TO 5: PRINT PEEK(A): NEXT A 

Lo and behold! You get the numbers stored in memory locations through 5. 



Location 
Location 1 
Location 2 
Location 3 ■ 
Location 4 • 
Location 5 



-^243 

*-175 

^►195 

*-116 

^6 

*- 195 

READY 

>- 



That one line in the Immediate Mode performs the same function as the following 
BASIC program: 



Ip CLS 

2j3 FOR A = (J TO 5 

3fl PRINT PEEK(A) 

4!3 NEXT A 



Try using the program and see if you get the same results. To look at more results, 
change line 20. If you try to get too much data on the screen, the results will scroll by 
so fast that you can't see them all. Try changing line 20 to: 



2(2 FOR A = p TO 13 



Now run the program again and compare your results with ours. 



243 ~ 
175 
195 
1 16 
6 

195 

64 

195 



64 

225 

233 

195 _ 

READY 

>- 



Contents of memory 
locations through 1 3 



By this time, you may be convinced that all ROM contains is a bunch of num- 
bers. What do the numbers mean? They don't mean anything to you, but they do 
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mean something to the computer. It interprets them as specific instructions — what, 
how, and when to do something. 

Perhaps you are itching to PEEK into the rest of the ROM. The following pro- 
gram lets you pick the starting and ending locations for a screenful of ROM locations. 
The addresses of the locations where the values are stored will also be printed. 

Use the following program to explore ROM: 



ROM PEEK Program 

113(3 REM * INPUT LOCATIONS * 

1 1^ CLS 

12|3 INPUT ''START ADDRESS ''; B 

13J3 INPUT ''END ADDRESS ''; C 

14)3 CLS 

2j3!3 REM * PRINT CONTENTS OF ROM * 

2 1(3 FOR A = B TO C 

2 2^ PRINT A, PEEK (.A) 
23(3 NEXT A 

3(3(3 REM * GO BACK FOR MORE * 

3 1(3 GOTO 12(3 



Be sure to look at the last locations in the ROM when you have entered the 
ijOlV/f PKBli' PrrtCTrtim A rf nf th.p ROM Ifif^ntioriR iiReH'' Deride, for vnnrsftlf hv 
running the program with the following inputs: 



START ADDRESS? 12275 
END ADDRESS? 12288 

After entering these starting and ending addresses and pressing ENTER, this is what 
you will see: 



1 2275 


195 


1 2276 


152 


1 2277 


26 


1 2278 


193 


12279 


2(39 


1 2 2 8CI 


195 


12281 


25 


1 2 2 82 


26 


12283 




1 2284 


(3 


12285 


(3 


12286 


(2 


12287 


(3 


12288 


255 


START 


ADDRESS? - 



1 lie i<aiJL li V *^ i»jOtii.iOiia iii Avvj-iv*. i^iji^x-u^j i.iiiOi*^ii t x^a^kj t f v^v>iti.u.jijt» ^-^^i -o-c/b. jL-/v/viAi.i'*-'i* 



1 2288 is actually the beginning of RAM, which we will discuss next. 
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Random Access Memory (RAM) 

The ROMs and the CPU are physically located inside your TRS-80 keyboard. The 
keyboard is also the home of many electronic circuits and integrated circuit "chips." 
Eight of these chips, enclosed in packages similar to the ROM chips, make up the first 
4K or 16K of your Random Access Memory (or RAM). 




Each RAM chip holds either 4,096 bits {binary digits) or 16,384 bits, depending 
on the computer's memory size. In a 4K machine, each chip holds 4,096 bits; in a 16K 
machine, each chip holds 16,384 bits. The computer combines 1 bit of information 
from each chip to make a "byte" of information. The TRS-80 is called an 8-bit com- 
puter because it works with pieces of information 8 bits long. A binary number whose 
length is 8 bits is called a byte. One memory location can hold 1 byte of information 
made up of 1 bit from each of the 8 chips. 

RAM is different from ROM in two important ways. 

1 . Information can be written into, stored into, or read from RAM. 
Therefore, you can erase or change the information in RAM. It is like a 
blackboard or scratch pad. 

2. All information is lost from RAM when the electric power is removed 
from the chips. The information stored there is not permanent, unlike 
ROM. That is why the computer "forgets" your BASIC programs when 
it is turned off. BASIC programs are stored in RAM. 

The TRS-80 uses RAM for many of its own operations. The area of RAM re- 
served for this use is located at address numbers 12288 (just above the ROM) to 
17129. This area is reserved for special purposes, such as keyboard memory, video 
memory, and other duties called "household chores." It is not used to store BASIC 
programs, but is used by the computer as it stores or runs your BASIC programs. 
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You can see in the diagram below that the computer's memory is growing. 



Memory 
location 

00000 



Level H 
BASIC ROM 



12288 
17129 



ncserveu nMivi useu uy i ro-ou 



You've finally reached the area of RAM that you can use for your programs. 
This area begins at memory location 17129. The highest memory location available to 
you depends upon the size of your coiiiputcf . The upper level address is 20479 for 4K, 
32767 for 16K, 49151 for 32K, and 6553.5 for 48K computers. The table below shows 
the RAM areas for the different size systems and the amount of RAM that may be 
used by your programs. 



Computer Size 





4K 


16K 


32K 


48K 


Top location 


20479 


32767 


49151 


65535 


Low location 


17129 


17129 


17129 


17129 


Usable memory 


3350 


15646 


32022 


48406 



Memory use by computer size 



Notice that the amount of usable memory may not be what you would expect. 
The TRS-80 uses some of your R AM for various necessary purposes. 
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A more dramatic display of the amount of RAM available to you, the user, can 
be shown graphically. The following diagram gives a picture of the RAM capacities 
for different computer systems. 



Memory 
location 



00000 



- 12288 



- 17129 



20479 - 



- 32767 



49151 - 
65535 



Memory Map by Machine Size 



4K 



16K 



32K 



48K 



Level II 
BASIC ROM 



Reserved RAM 
for TRS-80 



User RAM 



User 



RAM 



User 



RAM 



User 



RAM 



TRS-80 level II memory map 
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How RAM Is Used 



RAM is used in many interesting ways. As you type in the text of your program, RAM 
is used from location 17129 upward. String space is assigned from the top of your 
RAM downward. Remember, string space is automatically set for 50 bytes when you 
turn the system on. The amount of string space can be changed by using the CLEAR 
N statement (where N is the number of locations to be reserved for string characters). 
Simple variables are stored upward, immediately following the program text. Any ar- 
rays used are assigned upward following the simple variables. 

Next in line are locations used by the stack. The stack keeps track of data during 
GOSUB statements and FOR-NEXT loops. Therefore, your RAM is gobbled up from 
both ends. The TRS-80 munches its v^ay tov/ard the middle of RAM, as indicated in 
the following table. 



17129 



End of 
RAM 



Beginning of User RAM 



Program Text 
Simple Variables 
Arrays 
i^ree Space 

Stack 
String Space 



free Space 



Space optionally reserved for 
machine language routines 
accessed from BASIC 



End of memory and 
User RAM 



How RAM is used 



l^Iotics that there is an optional space at the top of memory that can be reserved 
for machine language programs you may want to access from your BASIC program. 
Use of this space and machine language programs is described in chapter 8. This 
space, if it is to be reserved, is set when you first turn the computer on. It responds: 



MEMORY SIZE?- 
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If you are not going to use a machine language program (and usually you won't), the 
space is not reserved when you press the ENTER key. 



MEMORY SIZE? -9 _ Press ENTER 

RADIO SHACK LEVEL II BASIC 
READY 

>- " ' — — Then READY message 

is printed 



If you are going to access a machine language program from a BASIC program, type 
in the address of the start of the machine language program following the MEMORY 
SIZE? prompt before pressing the enter key. The computer then reserves (or saves) 
the locations from the stated memory location to the top of your RAM for the machine 
language program. 



Example: A machine language program is to be 
accessed from BASIC starting at 
location 32700. 



MEMORY SIZE?327!3!3 

RADIO SHACK LEVEL II BASIC 

READY 

>- 



Assume that you are not using a machine language program and you have just 
received the READY prompt after turning on your 16K machine. 

» Next, verify the amount of "free" memory space in your computer 
• Type: PRINT MEM 



MEMORY SIZE? 

RADIO SHACK LEVEL II BASIC 
READY 

>PRINT MEM 

15572 
READY 

>- 



You type 

Origina:i free memory 
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Suppose you know that you will not be using any strings. Can you unreserve the 
string space that is saved? To find out, use the CLEAR N statement with N being 0. 
Then, PRINT MEM again. 



READY 



15572 -4- 
READY 
>CLEAR (3 
READY 

>PRINT MEM 

1 5622 
READY 



Original free memory 
Free the String Space 



u 1 r cn^ — CA\ 

(IJOZZ UUUUgll 1.JJ/Z. — ~>\JJ 



Fifty more locations now free 
(15622 

Now set the string space back where it was originally 



READY 




Free memory after zeroing 
String Space 

Type: Clear 50 

Back to original free memory 



Next, put in a small program one line at a time and match the free memory 
space decrease as the program text is entered. 
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Assume, as you enter this program, that you are using a 1 6K TRS-80. You have 
just turned the computer on and it shows free memory space of 1 5572 locations. 



READY 
>1(3 A=5 
>PRINT MEM 

15564 
READY 
>- 



First program line 

Eight locations used up for line 10 
(15572 through 15564) 



READY 
>1p A=5 
>PRINT MEM 

15564 
READY 

>2!3 B=6 -«»— 
>PRINT MEM 

15556 
READY 
>- 



• Second program line 

Eight more locations used for 
line 20 (15564 through 15556) 



READY 
>1|3 A=5 
>PRINT MEM 

1 5564 
READY 
>2j3 B=6 
>PRINT MEM 

15556 
READY 
• >30 PRINT A+B 
>PRINT MEM 

15546 
READY 
>- 



-Third program line 

-Ten more locations used for 
line 30 (15556 through 15546) 



You used 26 memory locations to store this three-line program. When you RUN 
the program, more memory space is used to store the variables. RUN the program and 
see how much total memory is used. 



>PRINT MEM 

I 5546 
READY 
>RUN 

II 5+6 = 11 

READY 

>PRINT MEM 
15532 — 

READY - ~ Fourteen more locations used for 

the run (15546-15532) 



14+26 = 40 total locations 
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You can see that memory gets used up pretty fast as you type in each line of the 
program. Remember, you use memory to store program text, variables, arrays, strings, 
etc. Even line numbers and spaces between words in the text take up memory loca- 
tions. To demonstrate, type the following three-statement program on one line with no 
spaces. Then check the free memory again. 

o Type: NEW 

^ Then enter the program on one line. 



READY 

>1j3 A=5:B=6: PRINT A+B 
">RUN 

1 1 
READY 

>PRINT MEM 

i 5 5 4 i — -s. 

READY \ 
>- 



The program: Three statements 
on one line 



15572-15541 = 31 locations 
for the program and run 



This one-line program used 3 1 locations. Therefore, you saved a total of 9 loca- 
tions by squeezing data onto one line. You can save memory in this way, but it makes a 
nroeram. hard to read. 



Would you like to see what a program looks like after it's stored in RAM? Since you 
know the program is stored in RAM starting at memory location 17129, you can 
PEEK into that area of memory after you have entered your program. Use the pre- 
vious three-line program because you know how much memory it used. If it's not still 
in your computer, type NEW and enter it again. 



KtAUI 

>1!3 A=5 
>2!3 B = 6 
>3!2 PRINT A+B 
>PRINT MEM 

15546 
READY 
>- 
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Since the program took 26 locations (15572-15546), you want to look at mem- 
ory locations 17129 through 17154. However, if you add a couple more locations you 
will see something significant. 



_ 

READY 

>1j? A=5 

>2i3 B=6 

>3|2 PRINT A+B 

>PRINT MEM 

15546 
READY 

>FOR C=17129 TO 17156:PRINT PEEK ( C );: NEXT C 
241 66 1p (3 65 213 53 (3 249 66 2|3i2 66 21 3 54 (3 
3 67 3(3 (3 178 32 65 2(35 66 !3 (3 j3 

READY I I 



^ End of program 

That long list of numbers is the text of the three-statement program. The three 
zeros at the end signify the end of the program text. Amazingly, the computer can in- 
terpret those numbers meaningfully. How does it do it? Well, it's that work horse, 
CPU (Central Processing Unit), following the directions of its boss, the ROM. To- 
gether they make a great pair, figuring out those crazy codes and performing the work 
with lightning speed. 

If you added another instruction to your program, you'd see that the program in 
memory has been lengthened. Try adding an END statement at line 40. 

a 



>4p END 
>PRINT MEM 

15540 
READY 
>- 



Six more memory locations have been used for line 40 (15546 through 15540) 
Therefore, look at locations 1 7 1 29 through 17162 this time. 

. — 

READY 

>FOR C=17129 TO 17162:PRINT PEEK ( C );: NEXT C 
241 66 1!3 65 2 1 3 53 (3 249 66 2(3 R 66 213 54 (3 
3 67 3(3 !3 178 32 65 2(35 66 (3 9 67 4p (3 1 28 13 

READY 
>- 

If you compare the two programs, you can see that 6 more locations containing 
the codes 0, 9, 67, 40, 0, and 1 28 have been added just before the three zeros that indi- 
cate the end of the program. 
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One last demonstration before leaving the subject of program R AM. This time 
enter a program that will PEEK at itself when it is run. 

Once again, the program will start at location 17129; ROM sees to that. Type 
NEW and enter the following program: 



READY 

>1!3 FOR A=17 129 TO 17 172 
>2fi PRINT PEEK(A) ; 

>RUN 

255 66 1!2 !3 129 32 65 213 49 55 49 5!^ 57 3 2 189 

32 49 55 49 55 5(3 (H 11 67 2(2 ,0 178 32 229 4)3 65 

41 59 p 19 67 3(2 (3 1 35 32 65 (3 (3 p 

READY r J 



End of program 



To get the same results, the program must be entered exactly as shown. Any ex- 
tra spaces change the codes produced. Try putting spaces on both sides of the equal 
sign in line 10. Then run the program again. Compare the two results. See the differ- 
ence? Try other changes and compare results. Be careful, though. Don't let your curi- 
osity get the best of you — the habit is catching. You can spend hours at this sort of 
thing. You might even discover what some of those numbers mean to the computer. 



rEEK and rOKE 



The PEEK instruction is very useful. It offers a passive way to investigate what is in- 
side the computer's memory without disturbing what is there. PEEK has a companion, 
named POKE, that is just the opposite. The POKE instruction is very active. // 
changes what is inside a specific memory location. Therefore, use it with great care. 
Its use can alter a vital piece of information if used at the wrong time or the wrong 
place. It works like this: 

POKE 17500,10 



POKE a new value. Into location 1 7500. This is the value POKEd. 

value in a memory location before you POKE in a new value. Jot down on paper what 
is there. Then, if a disaster occurs when the new value is POKEd in, you will know 

wfint vflliie toPOKF. hack in to restore the orisinal condition. 

Get your computer READY to try a few PEEKs and POKEs. 



Try a POKE into ROM 



i.?f.rr>(»mhAr thp rws-xfi Hi «M riicriicseii in the p.nriv nnrt nf this chanter, is addressed 
from through 12287. 
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First, PEEK into the ROM to see what is in location 120. 



READY 

>PRINT PEEK(12!; 

33 
READY 
>- 



' Then, try to POKE the number 5 into location 1 20. 



READY 

>PRINT PEEK(12i2) 

33 
READY 

>POKE 12!3,5 -a POKE it! 

READY 
>- 



Now, PEEK again to see if it changed. 



READY 

>PEEK( 12!3) 
33 ^ 

READY 

>POKE 12(3,5 
READY 

>PEEK( 1 2(3) 

33 -< 

READY 
>- 



What happened? 
It didn't change. 



Remember, ROM hRead Only Memory. It cannot be written into. The POKE 
statement writes data into memory. You can't do that with ROM. PEEK reads, and 
POKE writes. The TRS-80 accepts the POKE 120,5 statement and tries to write 5 
into location 120. Since location 120 is a part of ROM, it cannot be written into. No 
error prompt will be displayed but the data has not been accepted. 

If you or your TRS-80 seem hopelessly confused, turn off the TRS-80, then turn 
it on and start over! 
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POKE into RAM 

Although you can't POKE into ROM, you can POKE into RAM. Random Access 
Memory can be read from or written into. For the time being, let's stay in the user 
RAM area from location 17129 up. Erase any program that may be in your TRS-80 
by typing NEW. Then PEEK at 17150, POKE a 10 into 17150, and then PEEK at 
17150 again. 

/" 

READY 

>PRINT PEEK{ 1715jJ) 
READY 

>POKE 17 15P, 
READY 

>PRINT PEEK(17 15p) 

1 (3 It's there! 

KhiADY 

>- 

Success! You can POKE into RAM. Now, try this: 

« POKE the numbers 1 0, 1 1 , and 1 2 into locations 1 7 1 50, 1 7 1 5 1 , and 
17152. 



>POKE 1 715(3, 1!3 
READY 

>POKE 17 15 1,11 
READY 

>POKE 17152, 12 
READY 

>FOR X=1715)3 TO 17152: PRINT PEEK(X): NEXT X 
1!3 

1 1 ^ 

1 2 There they are 

READY 
>- 

Recall the three-line program on page 20: 



-in T, — c 
1 y> ^ — -> 

29 B=6 

ppTM'T' A4-B 
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Enter the program in the computer again, and then PEEK at locations 17129 through 
17156. 



Enter program 
Peek 



READY 

>1j3 A=5 -9 

>2!3 B=6 

>3!3 PRINT A+B ^ ^^"^ ~) 

>FOR 0=17129 TO 1715fi:PRINT PEEK ( C );: NEXT C 

241 66 ^fl (3 65 2 1 3 (sl) p 249 66 2p j2 66 213 54 

3 67 3p (3 178 32 65p!35 66 (3 p p 
READY f 



Keep your eye on this one; it 
is the number in location 17135. 

Now, you are going to do something that you should never, never do. You're 
going to POKE a number into the memory area where your program is stored. 

» Add line 25, which POKEs the value 54 into memory location 17 1 35 — the mem- 
ory location circled in the previous screen picture. 



READY 

>25 POKE 17135,54 
>LIST 
1(3 A=5 
2(3 B=6 

25 POKE 1 71 35 , 54 -8-Thereitis 

3(3 PRINT A+B 
READY 



Now RUN the program. 



>LIST 
1(3 A=5 
2!3 B=6 

25 POKE 17135,54 
3p PRINT A+B 
READY 
>RUN 

1 1 
READY 
>- 



Looks just fine 
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It looks as if nothing is wrong. Everyone knows that 5 plus 6 is 1 1 . Just to make 
sure, list the program again. 



>LIST 
A=5 
2|2 B=6 

25 POKE 17 135,54 
3i3 PRINT A+B 

READY 

>RUN 

1 1 

READY \ 
>LIST 



25 

RE 
>- 



A=6 
B=6 
POKE 
PRINT A+B 
\ nv 



17135,54 



-We started with this 
program 

- It worked OK 



— We ended up with this 
program. Now A=6. 
WHY? Read on. 



By using the POKE statement in line 25, you actually changed the program. At 
line 10, A was set to .5. At line 20, B was set to 6. When the program was executed, 
these values were stored in the memory area assigned to variables. Line 2.5 actually 
changed line 10 in the program. However, the program has already executed that line. 



see what the answer is. 



READY 
>RUN 

12 -» 
READY 
>- 



Sure enough, the answer is 
now 12 



This example produces a very minor fault. You were lucky. You might have de- 
stroyed your whole program. REMOVE LINE 25 IMMEDIATELY. Then change 
line 10 back to A=5. 



r 



READY 

>25 

>1!3 A=5 
>RUN 

1 1 -< 

READY 
>- 



Delete line 25 

^ - ... J 

OK! 



To emphasize the care that must be used with POKE, we encourage you to pro- 



gram occupies. We think you will discover why this kind of poking is a NO, NO. 
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• List the program to make sure you have the original program, then add line 40, be- 
low. 



4)3 POKE 17159, 187:POKE 171613, (3: POKE 1 7 1 6 1 , j2 POKE 17162,(3 



r 

a 



>LIST 

1p A=5 

2(3 B=6 

3j3 PRINT A+B 

READY 

>4j3 POKE 17159, 187: POKE 1 7 1 6(3 , (3 : POKE 1 7 1 6 1 , (3 : POKE 17162,(3 
>- 



Now RUN the program. 



>LIST 






1(3 A=5 






2(3 B=6 






3^ PRINT A+B 






READY 






>4(3 POKE 17159, 187 :POKE 1716(3, 


(3: POKE 17161 , 


2: POKE 17162 


>RUN 






1 1 






READY 






>- 







Nothing strange seems to have happened. RUN it again to make sure everything 
is all right. 





READY 
>RUN 
>- " 

' LIST the program. 



READY 
>LIST 
READY 
>- 

The program destroyed itself. This can happen when the POKE instruction is 
not used wisely. Results can be altered, a program can be destroyed, or the computer 
can become so confused that it doesn't know what to do next. 

Enough for destructive uses of POKE. Let's now turn to a more useful area of 
memory and POKE around. 
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Video Screen Memory 

Hidden away in an area called reserved RAM is a section the TRS-80 uses for its video 
display. 



00000 



12288 



17129 



Level II 
BASIC ROM 



ivescrvcu is./\m 



User RAM 



memory is 
in here 



Reserved RAM area 

The video screen memory consists of 1024 RAM locations, numbered from 
15.360 to 1638.3, inclusive. 



1.5360 

16383' 
17129 



Video screen memory 



This area of RAM memory displays the text and results of BASIC programs. 
You can alter the screen by poking certain values into the video screen memory 
(locations 15360 through 16383). 



X KJl ^ACillipX*./, CI j (.111.3 jyi V^^l Lllll. 



READY 
> 1 (3 CLS 

>2^ POKE 1536J3, 19) 
>60 GOTO 60 
>RUN 



You see this: 



Press the BREAK key to stop the program. 
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• Now, add line 30. 



BREAK, IN 6!? 
READY 

>3!3 POKE 15423, 191 
>RUN 



What do you see? 



You see this: 



at 15360 



■ at 15423 



Again, press the BREAK key to stop the program. Then add two more lines. 



BREAK IN 6p 
READY 

>A9 POKE 1632!?, 191 
>5!3 POKE 16383 ,191 
>RUN 



Now, you see: 



at 16320 



at 16383 



You have now located the memory locations assigned to the four corners of the 
video screen. Each rectangle occupies the space assigned to one memory location. You 
can put a number into each corner with the following program. Lines 20,30,40, and 50 
POKE the ASCII codes for the numbers 1,2,3, and 4 into the video screen memory.* 



*For a review of the ASC function, see Albrecht, Inman, and Zamora, TRS-80 BASIC: A Self-Teaching 
Guide. John Wiley & Son, Inc., N.Y., N.Y., 1980. 



30 MORE TRS-80 BASIC 



o Enter this: 



READY 
>1!3 CLS 

>2j3 POKE 153613, ASC("1") 
>3!3 POKE 15423, ASC("2") 
>4!2 POKE 1632(3, ASC("3" ) 
>5!3 POKE 16383, ASC("4") 
>6)2 GOTO 6(3 
>RtIN 



Then you see: 




TK?^ n*'^^ f*YRrnnlf», i!«if*,9- o.trinfTc <?triTi« fiinctir>r!P. AS(~^ and 1VfTD^ to noke the 
numbers 1 ,2,3,4, and 5 into the first five video screen locations. 



READY 

>1!3 CLS 

>20 A$ = "12345" 

>3^ FOR A = 1 TO 5 

>4!3 B$ = MID$(A$ , A, 1 ) 

>5(3 POKE 15359+A,ASC{B$) 

>6!3 NEXT A 

>70 GOTO 70 

>- 



,POKE 1,2,3,4, 
and 5 into locations 
15360, 15361, 15362, 
15363, and 15364 



RUN the program. 



f 

1 12 345 



o Sit back and watch the next program POKE zeros into each successive memory lo- 
cation on the top line of the video screen. You can see that the memory locations are 
numbered from the upper left corner horizontally across the screen. 



1 C T^TA 
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READY 
>^^^ CLS 

>2(3 FOR X = 1536!3 TO 15423 
>3^ POKE X,ASC("!3") 

>4j2 NEXT X ^ POKE can use a variable 

>5p GOTO 59 ^ ^ address 

>RUN 



The RUN: 



0000000000000000000000000000000000000000000000000000000000000000 

f 

64 zeros on one line 
To show two lines on the screen, change line 20 to: 

20 FOR X = 1536(3 TO 15487. RUN the program again. 



0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 

I 

Two rows of 64 zeros 
For a full screen of zeros, change line 20 to: 



2(3 FOR X = 1536(3 TO 16383 

Now, you'll see the consecutive locations filled with zeros. Add line 50: 50 GOTO 10 
and the screen clears after it is full of zeros. Then it all repeats. 

Summary 

You have explored the TRS-80 memory in this chapter. You learned that: 

• ROM (Read Only Memory) is located at the low memory locations. It contains the 
TRS-80 operating system and the BASIC language interpreted. You can PEEK at 
the contents of ROM, but you cannot POKE new data into it. 

= The CPU (Central Processing Unit) does most of the work, as directed by the in- 
structions that are located in ROM. 

• ROM contains information in the form of numbers that the CPU interprets as spe- 
cific instructions — what to do and how and when to do it. 
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• RAM (Random Access Memory) is made up of integrated circuits in which data 
can be stored. RAMs are organized in the TRS-80 to handle bytes of information 
made up of 8 binary digits. 

o You can PEEK at the data in RAM, and also POKE new data into it. 

e All information in RAM is lost when the power is turned off, but information in 
ROM is not lost. 

« Some RAM is reserved for special purposes (keyboard, memory, etc.). BASIC 
programs use RAM memory to store program text, variables, arrays, strings, etc. 

" The MEMORY SIZE? prompt may be used to save memory space for machine 
language programs. 

= PEEK and POKE instructions allov/ you to explore memory and alter RAM mem- 
ory. POKE must be used v.'ith care. It may change data that is important to the op- 
eration of your program. 

® The POKE statement may be used to create and change the video display, since 
the display is controlled by the data in a specific block of RAM. 

Keeping all these things in mind, try your luck with the following exercises. 
Self-Test . 

1 . Complete the sentence: TRS-80 Level II BASIC is stored in the 1 2288 ROM 

2. What does the following statement tell the TRS-80 to do? 

PR TNT PF.HK f 1 2 ^4"* 
Answer: . . . , . . 



3. What does the following statement tell the TRS-80 to do? 
X = PEEK(1234) 
Answer: 



4. Write a program to explore ROM. When someone RUNs your program, it 
should begin like this. 



START ADDRESS ?iJ Enter 
END ADDRESS? 1 3 Enter 1 3 
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After you enter 1 3 and press ENTER, this should happen: 



EACH PAIR OF NUMBERS (LOCATION AND BYTE) 
BEGINS AT A STANDARD 

SCREEN POSITION — COMMA SPACING, 0, 16, 32, 48. 







16 32 48 




i -i i 



LOC&BYTE LOC&BYTE LOC & BYTE LOC & BYTE 



Your program packs four pieces of information onto each line. Each item consists of 
the ROM location (LOC) and the number stored there (BYTE). 
You decide how to end your program. Simply stop (TRS-80 prints READY and 
prompt)? Or, use an "idling" GOTO, such as 710 GOTO 710? Or, use INKEYS? Or, 
in You choose! 

5. Where does TRS-80 reserved RAM begin (what address or location number)? 



6. Where does RAM, that you can use, begin (address or location number)? 



7. Where does usable RAM end? 

a) 4K TRS-80 

b) 16K TRS-80 

c) 32K TRS-80 

d) 48K TRS-80 

8. What does the following statement tell the TRS-80 to do? 



243 
4 6 
8 195 
12 233 



1 174 
5 195 
9 
13 195 



2 195 
6 
10 64 



3 116 
7 64 
11 225 



POKE (3, 255 



9. 



Answer: 

Will the TRS-80 do as it has been told to do? 

Write a statement to POKE the number 123 into location 17129. 
Answer: 
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1 0. Screen positions (upper left corner) through 1 023 (lower right corner) corre- 
spond, one to one, to RAM memory locations 15360 through 16383. 

Screen Position RAM Memory Location 

15360 

1 15361 

2 15362 



1023 16383 

Complete the following equations, relating Screen Positions and R AM Memory 
Locations. 

RAM Location = Screen Position + 

Screen Position = R AM Location 



Answers to Self-Test 

1. through 12287 

2. PRINT the decimal number contained in memory location 1 234. 

3. Assign the decimal number contained in memory Iccaticr; ! 231 to the variable 
X. 

4. One way to do it. (The READY prompt will follow the display.) 



IjJjJ CLS 

11(3 INPUT "START ADDRESS"; S 

12p INPUT "END ADDRESS"; E 

130 CLS 

14!2 A$= "LOG & BYTE" 

15(3 PRINT A$, A$ , A$ , A$ 

lep FOR X = S TO E 

17!3 PRINT X; PEEK(X), 

18!? NEXT X 



5. 12288 

6. 17129 

7. 4KTRS-80 20479 
16KTRS-80 32767 
32KTRS-80 49151 
48KTRS-80 65535 

8. Place the value 255 into memory location 0. 
No. (You cannot POKE into ROM.) 

9. POKE 17129, 123 
10. +15360 

— 1 JJUU 



CHAPTER THREE 

Graphics and Supergraphics 



One of the most useful and entertaining features of the TRS-80 is its graphics capabil- 
ities. There are several ways to produce useful shapes and moving displays. We will 
discuss the following four methods in this chapter. 

( 1 ) Setting individual, tiny rectangles. 

(2) Setting blocks of six rectangles with POKE. 

(3) Setting blocks of six rectangles with CHR$. 

(4) Setting strings of blocks of six rectangles. 

In this chapter you will also learn: 

» the difference between video print positions and graphic positions, 
• to use SET and RESET to plot graphic rectangles, 
« to POKE graphic characters into video screen and memory, 
» to display all the graphic characters with the graphic codes that produce 
them, 

» to paint the screen white and POKE holes in the printing by four different 
methods: 

SET, RESET 
POKE 
CHR$ 
STRINGS 

» to create different shapes and move them across the screen by three differ- 
ent methods: 

POKE 
CHR$ 
STRINGS 

o to construct simple and complex mandalas with the CHRS function. 
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Individual, Tiny Rectangles 

The TRS-80 video screen lives two distinct lives. 

* For text, it has 1024 printing positions, numbered through 1023. 

* For graphics, it has 6144 positions, each of which can be occupied by a tiny rec- 
tangle of light, much smaller than a "character." 

In this chapter, we will discuss both modes and the relationship of one to the other. We 
begin with ihe graphics mode, most usefui for drawing pictures, graphs, and assorted 
shapes. 

The video screen is divided into 6144 tiny rectangles for display. Each tiny rec- 
tangle can be turned on by the SET statement or turned off by the RESET statement. 
The screen is numbered from the upper left corner. There are 48 rows (numbered 
through 47) with 128 rectangles in each row (numbered through 127). 

COLUMNS 



127 




47 



48x128=6144 



Two values iiiusL be specified in ihe SET and RESET slalemenis. The iirsl iciis 
how far OVER from the left side to place the given rectangle. The second value tells 
how far DOWN from the top to place the rectangle. A comma is put between the two 
values; this tells the TRS-80 that there are two values; one for OVER — the second 
for DOWN. 



Count 
from here ■ 



Here is the 
rectangle 



□ — 



I 



OVER ' DOWN 

J 




comma 



The statement is: set ( over down ) 

A i parentheses 

Examples: ' 

SET (2(3, ip) 
SET ( 12,2(3) 



Do It like this: 



CLS : SET (2(3, 1(3) : SET ( 12,2(3) 
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And this is what you will see. (Well, of course you won't see our arrows explain- 
ing what is happening.) 



READY 

>- 



OVER = 20 
DOWN = 10 



OVER = 12 
DOWN = 20 



10 



If you wanted to turn on every tiny rectangle on the screen using the SET state- 
ment, you could do it like this: 



3(3 
40 

S9 
6(21 
70 



REM *PAINT HORIZONTAL LINES* 
CLS 

FOR DO = (J TO 47-*- 
FOR OV = (3 TO 127 

SET (OV, DO) 
NEXT OV 
NEXT DO 
GOTO 




This gives 48 rows 
128 rectangles in each row 
Turn a point on 
Next rectangle in row 
Next row 



Each time through the inner FOR-NEXT loop, one complete row of rectangles is 
turned on, and each time through the outer loop, a new row is set up. A white screen is 
painted with horizontal brush strokes beginning near the top of the screen. 
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The screen can be painted with vertical stripes by interchanging lines 30 and 40 
and also lines 60 and 70. 



1!2 REM *PAINT VERTICAL LINES* 
2fl CLS 

3p FOR OV = p TO 127 
4(3 FOR DO = (3 TO 47 
50 SET (OV, DO) 

6|3 NEXT DO 
7|3 NEXT OV 
ayj GOTO oyj 

Now the screen is painted with top to bottom vertical stripes, beginning near the left 
edge of the screen. 




Now let's use the white screen, but randomly erase some of the points on it. 
You'll need a random value for OVer, between the values and 127, inclusive. DOwn 
will range from to 47 inclusive. 



1(3 REM *PAINT HORIXONTAL LINES* 

2!3 CLS 

3!3 FOR DO = !3 TO 47 
4)3 FOR OV = ii( TO i 2 7 
5!3 SET (OV, DO) 

6(3 NEXT OV 

7(3 NEXT DO 

8(3 REM *ERASE SOME POINTS* 

9(3 DO = RND (48)-i^ Gives a random valuc (0 through 47) 

1(2(3 OV = RND ( i28)-i ^ ^ Gives a random valuB (0 through 1 27) 

11(3 RESET (OV, DO) -s________ ^ ^^.^^ 

12(3 GOTO 9(3 i^rases a po!";. 



The screen is painted white, and strange patterns appearing as tiny rectangles 
are erased. Eventually, it begins to look like a maze of black dots on a white back- 
ground. Then it slowly transforms into white dots on a black background as more and 
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more points are erased. Look for interesting patterns along the way. When you tire of 
watching, press the BREAK key to stop the program. 

You can restrict the point erasures to a certain part of the screen in a variety of 
ways. Here are two variations. 

1 . Change line 90 to: 

9(2 DO = RND (24) -1 (top half of scrccn) 

2. Change line 100 to: 

iW ov = RND (64)-i (left half of screen) 

Your turn. Show how to do each of the following variations. 

3. Bottom half of screen. Change line 90 to: 

4. Right half of screen. Change line 100 to: 



5. Center portion of screen. Change lines 90 and 100 to: 



3. 90 DO = 48 - RND (24) 

4. Ipp OV = 128 - RND (64) 

5. 9|3 DO = 36 - RND (12) 
1(3(3 ov = 96 - RND (32) 

Setting Blocks of Six Rectangles with POKE 

Each character printed on the screen occupies the same space as 6 of the tiny graphic 
rectangles. 



One graphic 
rectangle 




One PRINT position 
(=6 graphic rectangles) 
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You know from the PRINT@ statement that text can be printed at any one of 
1024 print positions (numbered from through 1023, inclusive). Each print position 
occupies one storage location in the memory used for the video display. The map of the 
video memory locations is like this: 



15360 15361 15362 

15424 15425 15426 

15488 !5489 

15552 



1.5421 15422 15423 
15485 15486 15487 



16320 16321 



16322 



16281 16382 16383 



Remember, each memory block contains 6 rectangular graphic cells. The rela- 
tionship between memory addresses and the row and column numbers used in SET 
and RESET statements is indicated in the following diagram: 



Memory 
Location 
15360 

OV=0 

LXJ — 'yj 

ov=o 

_DO=l_ 

ov=o 

DO=2 



OV=l 



OV=l 
DO=l 

OV=l 
D0=2 



Memory 
Location 
15361 

0V=2"' 



OV=2 
D0=1 

0V=2 
D0=2 



OV=3 



OV=3 
D0=1 

OV=3 
D0=2 



Memory 
Location 
15362 

0V=4 



OV=4 
D0=1 

OV=4 
D0=2 



0V=5 

0V=5 
D0=1 

0V=5 
DO=2 



You can POKE data into any one of the video memory locations by using the 
POKE statement. If the correct data is POKEd into a given location, a pattern com- 
posed of a combination of these 6 rectangles will turn on. The data, if between 1 28 and 
191, produces a pattern called a graphic character. 



WARN ING!!! AVOID POKING DATA INTO THE WRONG ADDRESS 



The video addresses for the graphic characters must be in the range of 1 5360 
through 16383, inclusive. 
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A table of graphic characters is given in appendix A. However, it is easy to con 
struct a graphic character from the following: 

1 . Number each of the 6 cells 
with a power of 2 in the 
order shown. 



1 


2 




2° 


2' 


4 


8 


or 


T- 


2' 


16 


32 




2' 


T 



2. The number 128 creates 

a blank character (all tiny rectangles OFF). 

3. Decide what rectangles 
you want turned on. 

4. The data used to form your 
graphic character is the 
sum of 1 28 and the value(s) 

in the cell(s) that you want to light. 



Examples: 



Add 128 



On 



+ 1 
137 



is the graphic 
character 





2 




8 


16 


32 



■On 



Add 128 
32 
16 
8 

+ 2 
186 



is the graphic 
character 
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Add 128 
32 
16 



All on 



1 


2 


4 


8 


16 


32 



All on 



+ 



is the graphic 
character 



To put a graphics character on the screen, you must put together the correct 
combination of v ideo memory location and graphic code and POKE the code into the 
memory. Suppose you want to display the following: 



/ r 



Upper left 
Upper right 
Lower left 
Lower right 



128+1+2+4 
128+1+2+8 
128+4+16+32 
128+8+16+32 



Graohic 
Code 
135 
139 
180 
184 



Memory 
Location 
15360 
15423 
16320 
16383 



This short program would do the job. 



10 CLS 

2(3 POKE 1 536(21, 1 35: POKE 1 5423 , 1 39 
3!3 POKE 16320,1813: POKE 16383,184 
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To see the complete table of graphic character codes and their shapes, enter and 
run this program: 

Display Graphic Characters 



1p REM *INITIALIZE* 
2p CLS 

3(3 M=1 536(3: A=129 



1 ^^^ 

1 2(2 
1 3p 
14(2 
15j2 
16(3 

21(3 
22p 
23(2 
24(2 
25(3 
26(3 

3(2(3 
3 1(2 

1 j3pp 
1(31p 
1(32(3 
1(33^ 
1(34(3 
105(3 



REM *PRINT A ROW OF GRAPHICS* 

FOR C= A to A+3 

IF C> 191 GOTO 3(2p -*~ 
PRINT C, ; POKE M, C ^ 
M = M+16 

IF M> 16383 GOTO 3(2(3 ^ 
NEXT C 



REM *READY NEXT ROW* 

IF A = 149 or A = 173 GOSUB 1 

A = A+4 

M = M+64 

IF M> 16383 GOTO 3 
PRINT 
GOTO 1 



REM *ALL DONE* 
GOTO 31(3 



Don't go beyond code 191 
Print code and character 

Don't go beyond screen 
memory 




REM *END OF SCREEN BLOCK* 
PRINT: PRINT 

INPUT ''PRESS ENTER TO CONTINUE 
M=15360 
CLS 

RETURN 



f 

Test for full screen 

Double check 
Go get another row 

AS 



M Type RUN and press ENTER. This is what you see: 
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■ Press ENTER and this happens: 




Press ENTER again to get the last bunch of graphics characters: 



'177 

B 


^178 


«i79 
m 


1,180 








Jl84 


■-in'; 




mm 


=ifla 


a-- 


m ' 


m 




|I89 


jigo 


|I9I 





The program works like this: 

Lines 10 through 30 initialize the first graphic character and the first screen 
uiciriory position. 

Lines 100 through 160 print a line of graphic codes and their corresponding 
characters (4 of each on a line). 

Line 210 tests to see if the screen is full. If so, the subroutine at line 1000 is exe- 
cuted. You can study the screen of characters as long as you want. When you press a 
key, the subroutine initializes the screen again and proceeds with the next screen of 
characters. If the screen is not full, line 260 returns the program to line 100 for an- 
other line of characters. 

Notice that another safety check is made at line 240 to be sure that the memory 
location where data is to be POKEd is not beyond the boundary 16383. Line 250 pro- 
vides a space between lines for easier viewing. 
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Do you remember how slowly the screen was painted white by the SET state- 
ment? The graphics code 191 produces a complete block of 6 rectangles. 



1 


2 


4 


8 


16 


32 



128+1+2+4+8+16+32 ■■ 
All six rectangles on 



191 



Compare the results of the program that painted the screen white using the SET 
statement with the following program that POKEs the screen white with graphic code 
191. 



ip REM *LiGHT A WHOLE BLOCK*-* Fill cvery scrcen mcmory 

bS foI m = 1536!^ TO 16383 location with code 191. 

4(3 POKE M, 191 
5!3 NEXT M 
6p GOTO 6p 

This program takes about seven seconds to run compared to forty-seven seconds 
for the program using the SET statement. 

Now see how fast black holes can be put in with POKE statements. Add these 
lines to lines 10 through 50. 



6j2 REM *POKE BLACK HOLES* 

713 R = RND( 1(324) + 15359 

8(3 POKE R, 1 28 

9J3 GOTO 7(3 



- A blank block of 6 rectangles 



The holes that get POKEd into the white screen are much larger. Therefore, the 
transition from black on white to white on black takes place much faster. 

Let's move on to something a little more entertaining. Graphic codes can be 
POKEd in to produce a three-car dragster race across the video screen. Work with 
only one car in the design of the program first. Break the program into these foUr 
steps: 

1 . Decide on the graphics for the car. 

2. Decide how to make the car move. 

3. Add two more cars. 

4. Determine the winner. 

First, to keep the car's design as simple as possible, limit it to three graphics 
blocks. 





2 




8 




32 







4 


8 


16 





Block 1 = 128+2+8+32 = 170 
Block 2 = 128+4+8 = 140 
Block 3 = 128+4+8+16 = 156 



BLOCK 1 



BLOCK2 



BLOCK3 
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This may not look like much of a dragster, but with a little imagination it will do. 
The BASIC statements to draw the dragster are: 

Block 3: POKE M+2, 156 
Block 2: POKE M+ 1,140 
Block 1: POKE M, 170 

Second, move the dragster by poking each block one place to the right each time, 
using a FOR-NEXT loop. Follow the car with a blank space to erase the last block or 

„i„„ j„„„„t„^ ,„;)i i^-,,r» tt-^cks across the screen. WATCH MY DUST! 




etc. 



np!_ _ T?r\T> >_Tr?'»_J"T' i.-..-..-. ^hl^- 

± IIW X V-/iV-i N i 10v./jp l\J\Ji\.o A«J.vw Liiio. 



POKE M+3, 156: POKE M+2, 140: POKE M+1, 170: POKE M, 128 
NEXT M 

A blank space 



Before going to step three, put the first two steps together and try it out. 



1!^ CLS 

2(3 FOR M = 1536p TO 1542p 

3)2 POKE M+3, 156: POKE M+2, 1412: POKE M+1, 17^: POKE M, 
4(3 NEXTM 
5p GOTO 50 

Across the screen it goes from start to finish. How would it do with some competition? 
Let's find out. 

Third, set up three cars to speed across the screen. Of course you must add some 
element of chance. Add a random value for movement to give each car a chance to 
win. 
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Three Car Dragster Race 

1(3 REM *POKE CAR RACE* 
2)2 CLS 

3(3 A=!3; B=p: C=!3 
REM *RACE ON* 
1 1(3 FOR M = 1 5359 TO 15423 

12p A=A+RND(2)-1 : B=B+RND ( 2 ) - 1 : C=C+RND ( 2 ) - 1 
13)2 D=M+A: E=M+B+ 1 28 : F=M+C+2 56 

14!2 POKED+3,156: POKE D+2 , 1 40 : POKE D + 1 , 1 7(3 : POKE D , 1 28 : 
POKE D-1 , 128 

15(3 POKE E+3, 156: POKE E+2,14!?: POKE E +1 , 1 Vj? : POKE E,128 
POKE E-1 , 1 28 

16|3 POKE F+3,156:POKE F+2 , 1 4!2I : POKE F + 1 , 1 7(3 : POKE F,128 
POKE F-1 , 128 

17(3 IF D+3>15421 OR E+3>15549 OR F+3>1 5677 THEN 21(2 
18(2 NEXT M 

2(3(2 REM *PICK WINNER* 

21(3 IF A>=B AND A>=C THEN D= 1 : GOTO 24(3 
22(2 IF B>=C THEN D=2:G0T0 24(2 
23(2 D=3 

24(3 PRINT @54(2,"CAR#"D"WINS" 

The three cars move forward either one or two spaces with each pass through the 
loop. The increase in the value of M accounts for one space. The other space is 
provided by line 120, where A, B, and C are increased by a value of either 1 or 0, de- 
pending on the random number selected. Line 170 serves as a check to stop the race 
when one car crosses the finish line. 

Fourth, lines 210 through 230 determine which car wins the race. There is a 
slight bias for A in case of a tie with B and/or C, and a slight bias for B in case of a tie 
with C. A typical end of the race might look like this: 



Car #2 Wins 



Since the POKE command can set 6 rectangles at once, the race is much more 
realistic than it would be by SETting each individual rectangle. Notice the two POKE 
1 28 statements at the end of each car. These erase the back of the car as it moves for- 
ward. Two blank spaces must now follow each car since the car can now move two 
spaces forward as the FOR-NEXT loop is executed. 

Setting Blocks of Six Rectangles with CHR$ 

The CHRS function returns a one-character string whos& ASCII code, control, or 
graphics character is specified. Using it for graphics, the form is: 

PRINT CHR$ (exp) 

^ a graphics code, 128 through 191 
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Since you will now be printing the characters instead of poking them into memo- 
ry, you must use print positions instead of actual video memory locations to display the 
graphic characters where you want them. To print a full 6-block graphics character: 



PRINT CHR$ ( 191 ) 



1 


2 


4 


CO 


16 


32 



All on 

128+1+2+4+8+16+32 = 191 



Go back and paint the screen white using CHR$. 



Ip REM *PAINT IT WHlTt'' 
2p CLS 

3p FOR S = p TO 1(322 

4(2 PRINT @S,CHR$( 191 ) ; 

5(3 NEXT S 

6(3 POKE 16383, 191 

7(3 GOTO 7(3 



J^IIIC DU ICVCllCU UlCP rvjjtvj-i sialwin-iiL Lv/ <i»>/i»-» owi v/Aii.ig, .. — 

PRINT /®1023 is executed, the screen automatically scrolls one line. We don't want 

This looks very similar to the program on page 22. Try it. Then punch some 
black holes in the white screen by adding these lines: 



7p REM *PRINT BLACK HOLES* 

8|3 S = RND (1[324)-1 ,ui 1 u 1 % 

9(3 PRINT @s, CHR$ ( 1 28 ) -3— 3 blank spacB (black holc) 

10(3 GOTO 8(3 



1 . Try the addition. Which is faster, POKE or PRINT CHR$? 



1 . They both take about the same time. (They should, since each does the same 
different BASIC statement to accomplish the same thing.) 
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Now, change the racing car program on page 47 to use CHR$ instead of POKE. 
As you do so, remember that strings can be concatenated O'oined together). 
Example: 



PRINT @D , CHR$ ( 1 28 )+CHR$ (128) +CHR$ ( 1 7p )+CHRS ( 1 4i3)+CHR$ ( 1 56 

or 



A$=CHR$( 128)+CHR$( 128)+CHR$( IVp) +CHR$ ( 1 4(3 ) +CHR$ ( 1 56 ) 
PRINT @D, A$ v\ / 



+ 



+ 



The following is one way to alter the three-car dragster race to use CHR$: 



changes: 



11! 



FOR M = |2 TO 6(3 



addition: 



14(3 PRINT @D, A$ 

15(3 PRINT @E, A$ 

16(2 PRINT @F, A$ 

17(3 IFD+3>60 OR E+3>188 OR F+3>,316 THEN21( 

4(3 AS=CHRS( 128)+CHR$( 128)+CHR$( 17(3) + 
CHR$( 14(3) +CHRS( 156) 



This makes the dragsters move across the screen faster. The dragster shape is gener- 
ated once at line 40. In the original program, the shape was generated three times on 
every pass through the loop. Therefore, this calculation time is greatly reduced. 



Three-Car Dragsters with CHRS 

1(3 REM *CHR$ CAR RACE* 
2(3 CLS 

3(3 A=(3: B=(3: C=(3 

4(3 A$=CHR$ (128) +CHR$ (128) +CHR$ ( 1 7(3 ) +CHR$ ( 1 4(3 ) +CHR$ (156) 
1p(3 REM *RACE ON* 
1 1(3 FOR M = (3 TO 6(3 

12(3 A=A+RND(2)-1 : B=B+RND( 2 ) -1 : C=C+RND(2)-1 
13(3 D=M+A: E=M+B+ 1 28 : F=M+C+256 
14(3 PRINT @D,A$ 
15(3 PRINT @E,AS 
16(3 PRINT @F,A$ 

17(3 IFD+3>6(3 OR E+3>188 OR F+3>316 THEN 2 1 (3 
18(3 NEXT M 

2(3(3 REM *PICK A WINNER* 

21p IF A>=B AND A>=C THEN D=1 : GOTO 24(3 
22p IF B>=C THEN D=2 : GOTO 24(3 
23(3 D=3 

24(3 PRINT @54(3, "CAR # " D" WINS" 
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Mandates 



A mandala is a pattern used in meditation. It is usually symmetrical left, right, up, and 
down. The next three programs illustrate methods to create simple and complex man- 

dalas. 

Start by printing a solid block near the center of the screen. Then, prmt one 
graphic code in each corner (upper left, upper right, lower left, and lower right). As- 
sign the variables A, B, C, D, E, and F to the rectangles for the upper left corner. The 
computer will generate random I's or O's for each of the six variables (1 for ON and 
for OFF). 



A 


B 




2° 


V 


C 


D 


or 




V 


E 


F 




T 


Y 



for upper left 



The value for the graphic block in the upper left corner is then: 

UL = 128+A+2*B+(2*C)|2+(2*D)T3+(2 *E)I4+(2*F)f5 
Example: 

If A and D =1 and all the rest = 0, 

UL = 1 28+ 1 +0+0+(2* i) [3+0+0 = i28+l+o = iJ7 

Then PRINT CHR$(137) in the upper left corner. 

To make the complete picture symmetrical, you can define the other rectangles 
as follows: 



Upper left 



Upper right 



A 


B 


C 


D 


E 


F 



B 


A 


D 


C 


F 


E 



Center 



E 




CHR$(191) 


F 


E 


C 


D 




D 


C 


A 


B 




B 


A 



Lower left Lower right 

This makes the complete picture symmetrical left, right, up, and down. 
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Center and Four-Corner Mandala 



-1 :C=RND(2) -1 :D=RND(2)-1 :E=RND(2)- 



1p REM *SET UP CHARACTER CODES* 
2(2 CLS 

4|3 A=RND(2)-1 :B=RND(2)- 
F=RND(2)-1 

IPP UL=128+A+2*B+(2*C)t2+(2*D) T3+ ( 2 * E ) t4+ ( 2*F ) 
lip UR=128+B+2*A+(2*D)t2+(2*C) T3 + ( 2*F ) |4+ ( 2 *E ) fs 
12p LL=128+E+2*F+(2*C)|2+(2*D) |3+ ( 2 *A )T4+ ( 2 *B ) |5 
13(3 LR=128+F+2*E+(2*D)t2+(2*C) T3+ ( 2 *B ) f 4+ ( 2 * A ) Is 
2pJ3 REM *PRINT THE MANDALA* 

21(3 PRINT @544,CHRS{ 191 );: PRINT @ 1 44 , CHR$ ( UL ) ; 
2 2(3 PRINT @1 76, CHR$ { UR) ;: PRINT @9 1 2 , CHR$ ( LL ) ; 
23(2 PRINT @944,CHRS(LR) ; 
3(3(3 GOTO 1(2 



Note: 
- Powers 
of 2 



Line 40 creates random 1 's or O's for the variables A, B, C, D, E, and F. Lines 
100 through 1 30 use these variables to create symmetrical graphic codes for upper left 
(UL), upper right (UR), lower left (LL), and lower right (LR). Lines 210 through 
220 print the graphics at their respective positions. The program then repeats, giving a 
different pattern at the corners each time. 




■ Enter the program and let it run for awhile before going to the next program. 
Don't erase the program; you'll add to it later. 

By making a few additions and changes, you can extend the pattern inward from 
the four corners toward the center to form a large X shape. 



Add: 



Change: 



3(2 FOR N = p TO 33(2 STEP 66 

5(2 IF N=(3 THEN M=(2 ELSE M=62*(N/66) 



24(3 NEXT N 

25p FOR WAIT = 1 TO 2); 



NEXT WAIT 



21p PRINT @544, CHR$ ( 1 9 1 ) ; 
22(2 PRINT@176+M,CHRS{UR) ; : 
23(2 PRINT @944-N,CHR$(LR) ; 



PRINT @144 +N,CHR$(UL) i 
PRINT @912-M,CHR$(LL) ,- 
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The altered program: 



1(3 REM *SET UP CHARACTER CODES* 
2(3 CLS 

3P FOR N = 13 TO 33(3 STEP 66 

4(2 A=END{2)-1 : B=RMD ( 2 ) - 1 : C =RND { 2 ) -1 : D=RND ( 2 ) - 1 :E=RND(2)-1 : 
F=RND(2)-1 

5(3 IF N=!3 THEN M=!3 ELSE M =62* (N/66) 
lj3!3 UL=128+A+2*B+(2*C)t2 + ( 2*D)|3+ ( 2*E ) 14+ ( 2*F ) fS 
11(3 UR=128+B+2*A+{2*D)T2 + <2*C) |3+ ( 2*F ) t4+ ( 2*E ) 15 
12(3 LL=128+E+2*F+(2*C)12+(2*D) 13 + ( 2* A ) H+ ( 2*B )15 
13(3 LR=128+F+2*E+{2*D)12 + {2*C) 13+ ( 2*B )14+ ( 2*A )T5 
2(3p REM *PRINT THE MANDALA* 

21(3 PRINT @544,CHR$( 191 ); : PRINT ® 1 44+N , CHR$ ( UL ) ; 
22(3 PRINT @176+M,CHR$(UR) ; : PRINT @9 1 2-M , CHR$ { LL) ; 
23p PRINT @944-N,CHR$(LR) ; 
24(3 NEXT N 

25|3 FOR WAIT = 1 to 2(3(3: NEXT WAIT 
3p(3 GOTO 1(3 



■ Enter and let the program run awhile. Here is a possible shape: 




After a brief time delay, the screen is erased and a new pattern is drawn. 
Enter and run this program. If you wish, eliminate the time delay at line 250 to 

!ly changing pattern. Do not erase the program. 

e After yon tire of the X-shaped mandala, make the following additions and 
changes. 
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Add: 25 s=ip 

35 FOR R= J3 TO S 

235 NEXTR 

237 S = S-1 



Change: 21(3 print @S44,CHRS( 191 ),- : print @144+N+R,CHR$(UL) ; 

22(3 PRINT @176+M-R,CHR$(UR) i :PRINT @9 1 2-M+R , CHR$ ( LL) 
23(3 PRINT @944-N-R,CHR$(LR) ; 



Fancy Mandala 

1(3 REM *SET UP CHARACTER CODES* 
2(3 CLS 
25 S= 1(3 

3(3 FOR N =(3 TO 3 3(3 STEP 66 
35 FOR R = (3 TO S 

4(3 A=RND(2)-1 :B=RND(2)- 1 :C=RND(2) -1 :D =RND(2)-1: 

E=RND(2 )-1 : 
F=RND(2)-1 
5(3 IF N=p THEN M=p ELSE M=62*(N/66) 

1(3p OL=128+A+2*B=(2*C) t2+(2*D) T3+ ( 2*E ) 14+ ( 2 *F ) |5 

1 1(3 UR=128+B+2*A+(2*D)t2+(2*C)T3 + (2*F)t4+(2*E)t5 

12(3 LL=128+E+2*F+(2*C)i2 +(2*D)t3+(2*A)f4+{2*B)f5 

13(3 LR=128+F+2*E+(2*D) T2+ ( 2 *C ) 13 + ( 2 *B )|4+ ( 2 *A ) fs 

2p(3 REM *PRINT THE MANDALA* 

21p PRINT @544,CHR${ 191 );: PRINT @144+N+R,CHR$(UL ) ; 

22(3 PRINT @176+M-R,CHRS(UR) ; : PRINT@9 1 2-M+R , CHR$ ( LL) ; 

23(3 PRINT @944-N-R,CHR$(LR) ; 

235 NEXT R 

237 S = S-1 

24(3 NEXT N 

25(3 FOR WAIT = 1 TO 2(2(3: NEXT WAIT 
3(3(3 GOTO 1(3 

a Enter the program and let it run. It is rather slow, but it lets you see the mandala ' 
grow from the outside inward. Enjoy it awhile before going on. 

Here is a sample mandala: 
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Setting Strings of Graphic Blocks 



When more than one graphic block having the same code is to be displayed, the 
STRINGS function can be used. The format for this function is: 



STRINGS (n, code) 



ASCII, control or 
graphic code 

number of times 
the character 
is to be printed 



Returning once again to painting a white screen, use the following program: 



Ip REM *PAINT IT WHITE* 

2(3 CLEAR Ipp 

3(3 CLS 

4P FOR S = !3 to 896 STEP 64 
5p PRINT @S,STRINGS(64, 191) 
6p NEXT S — 
7p PRINT @96!3, STRINGS ( 63 , 1 9 1 ) 
80 POKE 16383, 191 ^ 
9P GOTO 90 



Enlarge the string space 



— A full line of blocks 
blocks in this line 



Comparing the time to completely paint the screen, this program takes about 
one second versus seven seconds for POKE and CHR$ and forjy-seven seconds for 
SET. 

■ To punch in a random sized block of holes, change line 90 and add the lines as 
shown: 



9p REM *PUNCH BLACK HOLES* , , , 

ipp M = RND(32) ^ Random length block (1 through 32) 

lip P = RND(99i) ^ Random address 

12p PRINT @P, STRINGS$(M, 128) ; 

13p GOTO 1P!3 



Ti-:. „ ui„„i, „n tr> Koif p Mne- nf the scree" at a time. The random value 

. „ - _ . , , , ■ • 1. . 1 1 »!< Ul„„l._„ Tl^^f 

selectea lor M can oe cnangeu lo pruviuc siiui ici ui luu^ti iwngm ...v/v,n.o. ^ ..... 
really black out the screen in a hurry. 

After you have tried the painting and hole punching program, return to the 
three-car dragster program. This time use the STRINGS function along with CHRS 
to print each car's progress. Make each car appear to move by increasing the number 

nf Kianir cnnces mlinwina it. 
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The car is denoted by: 

A$ = CHR${ 1 70)+CHR$( 140)+CHR$( 156) 

To move the car along, use an ever increasing number of blank spaces by the 



1(3 REM *STRING$ CAR RACE* 

2(3 CLEAR 2pj2 

3(3 CLS : A=!3 : B=i3 : C=j3 

4p A$ = CHR$( 17^)+CHR$( 14(3)+CHR$( 156) 
1!2!2 REM *RACE ON* 
1 1(3 FOR M = (3 TO 6(3 

12(3 A=A+RND ( 2 ) - 1 : B=B+RND ( 2 ) - 1 : C=C+RND ( 2 ) - 1 

13(3 D=M+A: E=M+B : F= M+C 

14(3 PRINT @(3, STRINGS (D, 191 )+AS 

15(3 PRINT @128,STRING$(E, 191 )+AS 

16(3 PRINT @256,STRINGS(F, 191 )+A$ 

17(3 IF D 58> OR E >58 OR F> 58 THEN 21(3 

18(3 NEXT M 

2(3p REM *PICK A WINNER* 

21(3 IF A>=B AND A>=C THEN D=1- : GOTO 24(3 
22(3 IF B>=C THEN D=2 : GOTO 24(3 
23(2 D=3 

24(3 PRINT @54(3, "CAR #"D"WINS" 

The results of this race look much the same as before; however, the printing tech- 
nique is quite different. During each pass through the FOR-NEXT loop, each car is 
printed on a separate line, but the length of blank spaces to the left of the cars in- 
creases each time. Here is a diagram of successive printings for one car. 



STRINGS function. 



PRINT @(3,STRING${D, 191 )+AS 




Where D increases for each 
printing. 



Three-Car Dragsters with Strings 
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Example: Suppose D increases each time through the 
loop in the following manner: 



D= 1,3,5,6,8,9, 11, etc. 



D=l I 



,1 11^ 



li I i^^l 



D=3 



D=5 I 



D=6 



D=8 



D=9 



D=ll 



(-- 
I 

I 



I B 



V — — 

May the fastest car win! | 

Spaces printed by STRING$(D,191) 



1 



J 



Summary 



If you weren't a graphics expert before this chapter, you should be by now. You have 



o The video screen consists of 48 rows with i 28 rectangles in each row that can be 
individually SET or RESET. 
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— columns — 127 



rows 



47 V. 



A block of 6 (2 columns by 3 rows) rectangles can be POKEd into video screen 
memory. Each pattern of 6 rectangles is specified by a character code. The block of 
6 rectangles corresponds to a PRINT position. 

The graphics codes (128, all rectangles off through 191, or all rectangles on) can 
be POKEd into the video memory associated with any PRINT position. Print posi- 
tions are through 1023. The corresponding video memory locations are 15360 
through 16383. 

To use the PRINT position graphics codes with the CHR$ function. Since this 
method PRINTs the graphic characters instead of poking them into memory, the 
print positions can be specified directly. 

To set a whole string of graphic character blocks with the STRINGS function. 
This function allows you to specify the graphics code and how many times it is to 
be used successively. 

To use sample demonstrations of all four graphics display methods: 

SET, RESET 
POKE 
CHR$ 
STRINGS 



Self-Test 



1 . Before you RUN the following program, draw a sketch of the screen showing 
what it will look like after the TRS-80 has reached line 80. 



1(2 REM**PAINT PART OF THE SCREEN WHITE 

2(31 CLS 

3p FOR DO = (3 TO 47 
4)3 FOR OV = ^ TO DO 
5(2 SET (0V,D0) 

6(3 NEXT OV 

7(3 NEXT DO 

8(3 GOTO 8(3 
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Draw your sketch before you RUN the program! 



127 



41 



In exercise 1, the screen is painted with horizontal stripes, beginning at the top of 
the screen. Write a program to produce exactly ihe same cffcti usiag verticai 
stripes, beginning at the left edge of the screen, 
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4. For each graphics shape, write the corresponding numeric code below the shape. 
Remember: The code is equal to 128 plus the values of the turned on (■) tiny rec- 
tangles. 



(a) 



(b) 



(c) 



5 . For each graphics character code, show the corresponding shape. 



(a) 



166 



150 



185 



6. Write statements to: 

( a) POKE the graphics code 1 85 into video memory location 1 6000: 



What screen position is this?_ 



(b) POKE the graphics code 1 85 into screen position 1 000: 

(c) POKE the graphics code for j | | into screen position 5000: 



7. Below are two sketches of a "dog." Each consists of three graphics characters. 
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The sketches are the same, except for the position of the dog's "tail." Write a pro- 
gram to show the dog "wagging" its tail. Put the dog near the center of the screen, 
perhaps in print positions 543, 544, and 545. 



8. Write a program to move your happy dog of exercise 7 across the screen from 
screen position 5 1 2 past the right edge of the screen then, after a brief pause, re- 
peat. Of course, your dog's tail should wag as he goes joyfully across the screen. 

(a) First, write the program using POKE statements. 
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(b) Then, rewrite the program, using the STRINGS function to move the dog. 



Answers to Self-Test 
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2. IjJ REM ** PAINT PART OF THE SCREEN WHITE #2 

2(3 CLS 

3(3 FOR OV = (3 TO 47 
4(3 FOR DO - OV TO 47 
5(3 SET(OV,DO) 
6(3 NEXT DO 

7(3 NEXT OV 

8(3 GOTO 8(3 



3. 1(3 REM ** PAINT PART OF THE SCREEN WHITE #3 

2(3 CLS 

3p FOR OV = (3 TO 47 

4(3 FOR DO = (3 TO 47 - OV 

5(3 SET(OV,DO) 

6(3 NEXT DO 

7(3 NEXT OV 

8j3 GOTO 8p 



4. (a) 153 (b) 186 (c) 158 



5. (a) 



(b) 



(c) 



166 

(128+32+9+2) 



150 

(128+16+4+2) 



185 

(128+32+16+8+1) 



6. (a) POKE 16000, 185 
640 

(b) POKE 16460, 185 

(c) POKE 15860, 167 



7 . Here is one way to program it . 



1(3 REM ** WAG THE TAIL 

2(3 CLS 

3(3 PRINT@545, CHR$ ( 1 5 1 ) ; 

4(3 PRINT@544, CHR$(140); 

5p PRINT@543, CHRS(169); 

6(3 FORX = 1 TO 2(3: NEXT X 

7p PRINT@543, CHR$(17P); 

8(3 FOR X = 1 TO 2(3: NEXT X 

9(3 GOTO 5(3 
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8. There are many ways to write programs a and b. We show one possible program 
for part b. 



REM ** WAG TAIL AND MOVE DOG. 

2(3 CLEAR 
CLS 

4(3 A$ = CHR$(169) + CHR$(14(3) + CHR$ ( 1 5 1 ) 

5j3 B$ = CHR$(17!3) + CHR$(14!3) + CHR$ ( 1 5 1 ) 

6i> FOR P = 512 TO 572 STEP 2 * 
7^ FOR Y = 1 TO $ 

8!? PRINT@P, STEING${P-51 I , 128)+B$; 

9ji( t'UK X = i TO : NEXT X 

IIJIp PRINT@P, STRINGS(P-51 1 , 128)+A$; 

1 1 (3 NEXT Y 

12p NEXT P 

13(3 CLS 

14(3 FOR X = 1 TO 5(3: NEXT X 

15(3 GOTO 6(3 



CHAPTER FOUR 

Introduction to Cassette Data Files 



Many computer programs require entering long lists of data that are used by the pro- 
gram. This is often done by using INPUT statements, which takes time and causes lots 
of wear on finger tips if much data is to be entered. And, if your program is used again, 
the data must be entered all over again. It's true that READ and DATA statements 
may be used to include the data in the program, but if new datum is necessary, the pro- 
gram must be rewritten each time the data are changed. 

In this chapter you will explore the use of the cassette recorder to enter and save 
data that may be used again at a later time. You will learn: 

" how to handle data (made up of numbers, strings, or a mixture of the two) 
with the cassette recorder, 

» to use the PRINT #- 1 statement to transfer data from memory to the cas- 
sette recorder, 

= to use the INPUT #- 1 statement to transfer data from the cassette recor- 
der to the computer's memory, 
» what kind of cassettes to buy and how to care for and use them, 
' the format used on tapes, 

» the difference between a data record and a data file, 
» to use demonstration programs to input, save, and retrieve data, 
• how to conserve the amount of tape used in saving data, and 
» other technical information about cassette recording. 
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Using Your Recorder 

A cassette tape recorder, shown below, is standard equipment with the TRS-80 
system. 




Keyboard unit 
(computer is inside) 



You have probably used the cassette recorder to load cassette programs into memory 
(RAM, of course) using the CLOAD command. You may aiso have used the casscilc 
recorder to CSAVE your own programs on cassette tapes or to make back-up copies of 
cassette programs you have purchased.'-' 

If you have not used CLOAD and CSAVE, we suggest you read appendix B, "The 
Cassette Recorder", before continuing with this chapter. 

« When you CSAVE a program, the TRS-80 records the program from its 
memory onto a cassette, using the cassette recorder. 
CSAVE: FROM MEMORY TO TAPE 




■> When you CLOAD a program, the TRS-80 reads a program from a cas- 
sette into its memory, again using the cassette recorder. 



*It is OK to make back-up copies of copyrighted software that you have purchased for your own use. It is 
provide good, inexpensive software, and is illegal as well. 
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CLOAD: FROM TAPE TO MEMORY 



MEMORY 




This chapter presents a new way to use the recorder. You will learn how to save 
data (information) on cassettes, and how to read data from cassettes into the memory 
oftheTRS-80. 

The data (information you store on tape cassettes) can consist of numbers or 
strings or a mixture of both. So, the information can be almost anything. For example: 

■» A personal telephone directory with people's names and phone numbers. 

• A dictionary of three-letter words to be used in a computer game. 

« An inventory of your record, coin, or stamp collection — or whatever you 
collect. 

a A list of your important personal property. Put this cassette in your bank 
deposit box. You might need it if your house burns down or you are 
burgled! 

« The first five hundred prime numbers. 

« Your shopping list for next Christmas (add to it now and then). 
» People's birthdays, anniversaries, and other important dates. 

• Tax information so you and your friendly TRS-80 can go bravely into bat- 
tle against the giant IRS monster. 

Why put such information on tape cassettes? Because, once it is on cassettes you 
can read it into your TRS-80 and do things with it, or to it, as the case may be. In addi- 
tion, information stored on cassette tape is "machine-readable." The TRS-80 auto- 
matically reads it much faster (and with fewer errors) than you can type it in. So, save 
wear and tear on the old fingers — learn how to put data on cassette tape. 

IT'S EASY! 

Start with two short, simple programs. The first program lets you enter informa- 
tion from the keyboard and save it on tape. Of course, this information must first go 
into the memory (RAM) of the TRS-80. That's why we call this program KEY- 
BOARD TO MEMORY TO TAPE. 



REM ** KEYBOARD TO MEMORY TO TAPE 
1 ^^! CLS 

12!2 INPUT A$ — — ^ Keyboard to memory 

13!3 PRINT # -1, h$ ^ Memorytotape 

14(3 GOTO 12(3 J f 



Line 120 is the KEYBOARD TO MEMORY part of the program. When a question 
mark appears, you enter a string. The string is stored into memory as the value of A$. 
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Line 1 30 is the MEMOR Y TO TAPE part of the program. 
The statement: 

1 3(3 PRINT # -1 , A$ 

tells the TRS-80 to "PRINT" the value of A$ on device # - 1 , which just happens to 
be the cassette tape recorder. 

Let's say it again, boldly. 




PRINT on device the value of 



Now you have two ways to use PRINT. 

1 ) PRINT A$ means to "PRINT" on the TV screen. 

2) PRIN 1 #-1, A3i means to "PKiJN 1'' on the cassette tape. 

As you work through this book, you wili fmd even more ways to use PRiN T. 

OK, you have a program to put information on tape. Here is a program to get in- 
formation from tape into memory. This program is called TAPE TO MEMORY TO 
SCREEN. 



2i3!3 REM ** TAPE TO MEMORY TO SCREEN 
2 1j3 CLS 

220 INPUT # -1, A$ ~^ Tape to memory 

239 PRINT A$ ^— Memory to screen 

24(3 GOTO 22fl ^ 

Line 220 is the TAPE TO MEMORY part of the program. It tells the TRS-80 to IN- 
PUT a value from device # —1 (AHA! The cassette recorder) and put it into AS. 



mrrinnn 

' " fl II I! I 



n n 



/I 



n 
f n i 



ULULxllLILI inr' "xUpCi^ 



\ 



\ 



X 7 : 

INPUT from device the value of 



PRINT the value of A$ (which is in memory) on the TV screen. 
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In summary: 




SLOW DOWN AND . . . READ VEERRRYYYY CAREFULLY! 



Now we are going to try out our two programs. This must be done VERY care- 
fully. We wish you success on your very first try. Read sl6wly, then reread, then read 
again. S 1 o w is good. 
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Start by finding a high quality, never-before-used tape cassette. Don't (repeat, 
DON'T) buy just any old cheap cassette. Always treat your TRS-80 to the best, if you 
want the best from it. Next, examine the cassette. Most cassettes have lots of magnetic 
tape and . . . VERY IMPORTANT ... a few inches oi leader. Leader? Rewind your 
tape. The first few inches probably consists of nonmagnetic leader, usually clear, yel- 
low, or blue, or any color other than dull brown. Dull brown is the color of magnetic 
tape. 



YOU CAN'T RECORD ON L EADER 




Why put all this space into what you can't do on leader? Because, if you want 
your TRS-80 to CSAVE or PRINT # - 1 , then you must 

« rewind the tape, 

® then, wind it forward a few inches so that magnetic tape, not leader, is in 
position to receive your message. 
Now, enter both of our programs into the TRS-80. Note how we have cleverly 
chosen line numbers so that you can do this. For your convenience, here again are the 
two programs. 



1 






1 1(3 


CLS 




1 20 


INPUT A$ 




1 30 


PRINT # -1 , 


AS 


14(3 


GOTO 120 






REM ** TAPE 


TO MEMORY TO SCREEN 


210 


CLS 




220 


INPUT # -1 , 


A$ 


230 


PRINT A$ 




240 


GOTO 220 





We assume that you have placed the cassette in the cassette recorder. You have, 
haven't you? What! You haven't? Well, OK, do it now. 

" Press both PLAY and RECORD on the cassette recorder. Nothing should 

happen. If the tape starts to move, you probably don't have the recorder 

properly hooked up to the TRS-80 (check the plug). 
* Set the voiurac control on the cassette recorder to 5 or 6, or whatever 

works when you use CSAVE and CLOAD. 
o Type RUN and press ENTER. _ 

This is what you see. ( ? 

The TRS-80 is waiting I 

for a value of A$. 

o Now, type a string value for A$ and press ENTER. You should see the 
value, stored it in AS, then recorded it on tape. 
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The following brief history shows what might happen when you run KEY- 
BOARD TO MEMORY TO TAPE. Make this tape and keep it for later use. 



? ABC 

? 1234567890 
? BLUE 

? COMPUTERTOWN USA! 
? TAKE A DRAGON TO LUNCH 
? TESTING 
? ONE 
? TWO 
? THREE 

■? THAT'S ALL FOLKS! 



After typing each string, keep one eye on the cassette recorder. Each time you press 
ENTER, the tape should move. The TRS-80 is recording your last entry on the cas- 
sette. 

If all went well, you recorded 10 strings on the tape cassette like this: 



To find out if those 10 strings are really on tape, use the following TAPE TO MEM- 
ORY TO SCREEN program: 

" First, press STOP on the cassette recorder. 

«> Rewind the tape". It is not necessary to move the tape forward because you 

are going to read from the tape, not record onto tape. In reading/rom 

tape, the TRS-80 ignores the leader. 
<> Press BREAK to stop the program in progress. 
» Type RUN 2 1 and press ENTER. This wiH RUN the program, 

beginning at line 210. Another way to do this is to type GOTO 210 and 

press ENTER. 

Poof! The screen goes blank. Nothing seems to be happening. 
• Press PLAY on the cassette recorder. The tape begins to move; informa- 
tion appears on the screen. 





I BLUE 1 123456789 1 ABC 



Direction of 
tape movement 




72 MORE TRS-80 BASIC 



Here's what happens when you run the program. First, the screen looks like 
this: 



Good! That's the first 
string you put on tape. 



A little later, the screen looks like this: 



ABC 

1 23456789P 
BLUE 

COMPUTERTOWN USA! 

TAKE A DRAGON TO LUNCH 



IMPORTANT NOTICE! This is 
what happens if all goes well. 
You did use a high quality, 
never-before-used tape, didn't 
you? If not, you may be 
getting "noise" on the screen! 



And still later; 



ABC 

1 23456789P 
BLUE 

COMPUTERTOWN USA! 

TAKE A DRAGON TO LUNCH 

TESTING 

ONE 

TWO 

THREE 

THAT ' S ALL FOLKS ! 

You may recall that that is everything you put on tape. But glance at the cassette 
recorder — the tape is still moving. You know that there is no more information on the 
tape. But the TRS-80 doesn't know. Look at the program. 



200 
2 1J3 

2 3 ji 
240 



REM 

CLS 

INPUT # ■ 
PRINT A$ 
GOTO 220 



TAPE TO MEMORY TO SCREEN 




It's still trying! 



Interrupt your patient TRS-80 and you can try some new things. 
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Press STOP on the cassette recorder. This stops the tape. Remove the cas- 
sette if you wish. 

The TRS-80 is still trying to read tape! Press the RESET button, located 
in the back of the keyboard unit, left side as you face the keyboard. It is 
behind a little plastic door. 




Rear of Keyboord Unit 



We hope everything went well. If it didn't, reread our directions carefully, then try 
again. Do each step slowly and carefully. If you still have trouble, try these reme- 
dies. 

" Clean and demagnetize the heads on your cassette recorder, 
o Check the volume setting. A setting of 4 to 6 should work. Try several set- 
tings in this range. 

• Check the cables that connect the cassette recorder to the keyboard unit. 

• Try a fresh, good-quality cassette. 

• Yell for HELP! With so many TRS-80s in use, there is probably another 
user within shouting distance. 

• Take this chapter and your TRS-80 to the nearest Radio Shack store. 
They will be happy to help you. 
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On Stopping when Done 

Here, once again, are the two programs KEYBOARD TO MEMORY TO TAPE and 
TAPE TO MEMORY TO SCREEN. Well, almost — we have made a small change 
in the second program. 

100 REM ** KEYBOARD TO MEMORY TO TAPE 
1 1 CLS 
12(3 INPUT AS 
1 30 PRINT # -1 , A$ 
140 GOTO 120 

200 REM **♦ TAPE TO MEMORY TO SCREEN 
210 CLS 

220INPUT # -1 , A$ 
230 PRINT A$ 



240 GOTO 220 

Enter this program, then rewind your tape from page 70, type RUN 210, and 
press ENTER. 

r 

ABC 

1 234567890 
BLUE 

COMPUTERTOWN USA! 

TAKE A DRAGON TO LUNCH 

TESTING 

ONE 

TWO 

THREE 

THAT'S ALL FOLKS! 

READY -« Success! The program stopped, automatically. 

The tape stopped, too. 
Just as you expected. . . '.' 

Th*> 5frmo. THAT'S ATT FOLKS' marks the end of file on the taoe. It marks 
the end of information on the tape. Well, actually, it marks the end of this particular 
bunch of information on tape. If you want to put more information on this tape, you 
may. But you must remember where it begins and where it ends. Use the tape counter 
on the cassette recorder to position the tape at the beginning of your information. 

° A bunch of information on tape is sometimes called a record. 
^ A bunch of records is called a file. 



Type RUN 210 or 
GOTO 210 to use 
this one. 
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Oh well, whatever they are called, let's now set up something useful; a personal 
phone directory. Again, we have two programs; one to set up the directory and one to 
play it back. There is nothing new in these programs. Read them, figure out what they 
do, then move on. 

By now, you should read the programs carefully and try to understand them 
before you try them on your TRS-80. Who knows? You might improve them before 
trying them! 



Ipp REM ** MAKE A TAPE OF NAMES AND NUMBERS 

1 10 CLEAR 10S3 

12|3 CLS Sorry, NAME is 

1313 PRINT : INPUT "NAME" ; NAYMS — a reserved word 

140 INPUT "NUMBER" ; NMBRS d reserveo woro 

150 PRINT # -1, NAYMS, NMBR$ ^ Aha! Two things in 

160 GOTO 130 one PRINT #--1 



200 REM ** READ 10 NAMES AND NUMBERS 
210 CLEAR 100 
220 CLS 



230 FOR K = 1 TO 10 

240 INPUT # -1, NAYMS, NMBRS 

250 PRINT NAYMS TAB(30) NMBRS 

260 IF NAYMS = "NO MORE NAMES" THEN END 

270 NEXT K 



300 REM ♦* THE PRINT STATEMENTS TELL ALL 
310 PRINT 

320 PRINT "TO GET MORE NAMES AND NUMBERS," 
330 PRINT "PRESS THE SPACE BAR" ; 
340 KEYS = INKEYS : IF KEYS = "" THEN 340 
350 IF KEYS = " " THEN 220 ELSE 34 

t 

^ Put a space between quotes 



QUESTION: When you run the program called MAKE A TAPE OF NAMES AND 
NUMBERS, what should you put on the tape as the very last "name?" What do you 
suggest for the corresponding telephone NMBRS? (We have two completely outra- 
geous numbers in mind.) OK, let's go! We ran program MAKE A TAPE OF NAMES 
AND NUMBERS. If you had been there to watch, this is what you would have seen. 
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We typed RUN (or RUN 100 or RUN 1 10 or GOTO 100 or GOTO 1 10) and . . . 



NAME? DON INMAN 

NMBR? 415-323-6117 

NAME? RAMON ZAMORA 

NMBR? 415-323-61 17 

NAME' ROR AT.RRFfHT 

NMBR? (415) 323-6117 

NAME? COMPUTERTOWN USA! 

NMBR? 4 1 5/323 - 3 1 1 1 

NAME? DYMAX GAZETTE 

NMBR? 4153236117 

NAME? 



From now on, each new line pushes the line at the top off the screen. This does not 
affect the' writing of information onto the cassette tape. 

We continue. 



NAME? GANDAI.F 

NAME? PRIME TIME 
NMBR? 235 711 1317 

NAME? FIBONACCI 
NMBR? 112 358 1321 

NAME? PCC 

NMBR? 4 15 323 3 111 

NAME? ERIC BAKALINSKY 
NMBR? 415 DAFFODIL 

NAME? TIME OF DAY 
NMBR? POPCORN 

NAME? INFORMATION 

NMBR? AREA CODE 555-1212 

NAME? HANDICAPPED AID 
N H 3 K ? 3 yj p /' 2 2 - 3 2 4 p 

NAME? NO MORE NAMES 
NMBR? 999 999 9999 

We are finished. So, we press STOP on the 

fccorcicr 2. nG t5i\.iii,/Ts.iv on inc fCcyoGsrG. 



NAME? 
D TT A nv 
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We arbitrarily chose 999 999 9999 as the number for NO MORE NAMES. 
Hmmm . . . could it be an actual number? We tried it. This is what we heard: 

The number you dialed is not a working number. 
Please check your listing and dial again. 

Great! We had hoped that this would not be a real telephone number. 
Now, let's play it back. We assume, of course that: 

• the programs (both) are in memory and ready to go, and 

• the cassette containing the file of names and phone numbers is in the cas- 
sette recorder and ready to go (rewound? right side up? OK!). 

GO! Type RUN 210 and press ENTER. This is what you see: 

DON INMAN 
RAMON ZAMORA 
BOB ALBRECHT 
COMPUTERTOWN USA! 
DYMAX 
GANDALF 
PRIME TIME 
FIBONACCI 
PCC 

ERIC BAKALINSKY 



415-323-61 17 
415-3 23-6117 
( 4 15 ) 323 -61 1 7 
4 1 5/323 - 3 1 1 1 
41532361 17 
777 777 7777 
235 7 11 13 17 
112 358 132 1 
415 323 3111 
415 DAFFODIL 



TO GET MORE NAMES AND NUMBERS, 
PRESS THE SPACE BAR. 

Now, press the space bar. The screen clears and the next bunch of names and 
numbers come on the screen. 



TIME OF DAY POPCORN 

INFORMATION AREA CODE 555-1212 

HANDICAPPED AID 8!3!3 772 - 324(3 

NO MORE NAMES 999 999 9999 

READY 



Since there are NO MORE NAMES on the cassette, the TRS-80 stops auto- 
matically. 

We put names on the cassette in no particular order. You might want to 
set up your personal telephone directory in alphabetical order as names 
usually appear in a printed directory. This might be especially useful if your 
tape directory has many names and numbers. 
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You Can Store Numbers, Too 

So far, you have stored only string values on tape cassettes by using string 
variables in PRINT # -1 statements. You have used the following PRINT 
statements: 

130 PRINT # -1, A$ -« String variable 

150 PRINT # -1, NAYMS, NMBR$ 

I 1 String variables 

We can also store numbers on tape cassettes by using numerical variables or 
expressions in the PRINT # -1, statement. 

140 PRINT # -1, X -«! ^Numeric variable 

The following program will store consecutive integers (1, 2, 3, 4, 5, and so on) 
on a tape cassette. 

1(30 REM ** MEMORY TO SCREEN AND TAPE 
1 10 CLS 
i 2 X — 1 

130 PRINT X ; 

140 PRINT # -1 , X 

150 X = X + 1 
160 GOTO 130 

This program also PRINTs each number on the screen (line 1 30) just before 
writing it on tape (line 140). 

And, of course, you also need a program to read the numbers back from tape 
into the memory and put them on the screen. 



200 REM *♦ TAPE TO MEMORY TO SCREEN 
2 1 ^ CLS 

220 INPUT # -1 , X 
230 PRINT X ; 
240 GOTO 220 

Enter both programs. Then, put a C-10 cassette (five minutes on each 

..X. . « T>Ti.:r .,iTrw"f-'^y^T^Trvj irsT T"f^T aU™ 1^.^-. 

Slue; m iilc i cCui uci , jjiosa i m^jtx i dnyi j.vij^'>-»tvjL-, t-jjj^ - vii- . — 

board, press ENTER . . . and this is what you see: 



Memory to screen 
Memory to tape 
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^ 

1 2 3 4 5 and so on 

This goes on for about five minutes until the end of the tape is reached. 
CLICK! The recorder stops, but the TRS-80 continues putting numbers on 
the screen. 



We now press the reset button to stop the TRS-80. 



Let's find out how many numbers are on the tape. Rewind the tape, press 
PLAY on the recorder, type RUN 210 and press ENTER. When the recorder 
stops, press the reset button. 

The numbers are read one by one as the value of X appears on the 
screen. Five minutes pass . . . CLICK! The recorder stops at the end of the 
tape. 



1 2 3 


4 


5 6 


7 ! 


3 9 


10 11 12 13 14 15 16 17 18 




19 20 


2 1 


22 


23 


24 


25 26 27 28 29 30 31 32 33 


34 


35 36 


37 


38 


39 


40 


41 42 43 44 45 46 47 48 49 


5 


51 52 


53 


54 


55 


56 


57 58 59 60 61 62 63 64 65 


6 6 


67 68 


69 


7(3 


7 1 


72 


73 74 75 




READY 










f 




>- 










The recorder stopped here. The 





TRS-80 is still trying to read 
tape. Press the reset button to 
stop it. 

Using the statement PRINT # -1, X allows us to put about seventy-five numbers on 
one side of a C- 10 cassette. You might get a slightly different number on your C-10 
cassette. However, assuming about seventy- five numbers on a C-10, we might expect 
about the following on long cassettes. 



CASSETTE 


NUMBER OF NUMBERS 


C-30 


225 


C-60 


450 


C-90 


675 



A C-30 has fifteen minutes on 
each side, a C-60 has 
thirty minutes on each side, 
and so on. 
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Writing only one number at a time is the least efficient way to store information 
on a cassette. How can we store more numbers on tape? Try this: Make these changes 
to the programs MEMORY TO SCREEN AND TAPE and TAPE TO MEMORY 
TO SCREEN. 



14p PRINT # -1 , X, X + 1 

15S3 X = X + 2 

220 INPUT # -1 , X , Y 

230 PRINT X; Y; 



- Use a fresh C- 1 tape and RUN the (modified) program called MEM- 
ORY TO SCREEN AND TAPE. 

Then, play this tape back, using the program called TAPE TO MEM- 
ORY TO SCREEN. Remember, to read this tape back, rewind it, then 
type RUN 210 or GOTO 210 to start the program. 

Using a C-10 tape, we ran both programs. Here is what we got when we played 
the tape back, using the second program: 




34 



6 17 18 

1 32 33 

7 48 49 5 
3 64 65 6 6 
9 80 81 82 

c af. Q7 Q £3 

109 110 111 

2 1 122 123 
33 134 135 
45 146 147 



The recorder stopped. We pressed 
the reset button to stop the TRS-80. 

Aha! This time, the C-10 tape has 148 numbers, almost twice as many as before. This 
happened because two numbers are written on tape each time. 



140 PRINT # -1 



X + 1 



T L 



If we write two num.bers on tape each time, we usually INPUT two numbers when we 

220 INPUT # - 1 , X , Y 



two numbers (put one in X and the other in Y). 



Hmmm . . . what happens if we INPUT only one number? Try it and find out! 



INTRODUCTION TO CASSETTE DATA FILES 



Technical Stuff 



You may skip this section if you wish. We will explain how the TRS-80 writes infor- 
mation on a cassette tape; then you may understand why PRINT # -1, X, X+1 crams 
about twice as much information on tape as PRINT # -1, X. 

In executing a PRINT # -1 statement, the TRS-So'first records 128 zero bits 
(binary digits) on the tape. It then records a code which is later used to sychronize the 
tape and the computer when the tape is read back. This code is 1010 0101 in binary 
or A5 in hexadecimal. Huh? Well, we did say you could skip this section! 

As you might expect, all those zero bits and the hexadecimal code use up some 
tape. Finally, however, your information gets recorded on tape. So, if you are putting 
only one number on tape at a time, it looks something like this: 











































and 

so on . . . 






128 
zero 
bits 






128 
zero 
bits 






128 
zero 
bits 



3rdX 



A5 2ndX 



J 



L 



J 



L 



■A5 IstX—J L__A5 

synchronizing code 

When you save the pieces of data in the same PRINT statement, such as: 

14(3 PRINT # -1 , X, X+1 



two numbers 



approximately twice as much data can be stored on the same length of tape. 































































128 

zero bits 








128 

zero bits 








128 

zero bits 



4 A5 
5th X 
6th X 



A5 
3rdX 
4th X 



A5 
IstX 
2ndX 



By comparing this sketch and the previous sketch, you can see that more data 
can be squeezed onto the same length of tape by printing more than one item in a 
PRINT # -1 statement. However, there is a limit to the number of items given in the 
PRINT # - statement. The total number of characters printed by one PRINT # -1 
statement must not exceed 255. All characters after the 255th would be cut off or 
ignored. 
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The characters would be counted like this: 



lstX = 2 
2nd X = 32 
3rd X = 55.9 

TOTAL 



1 character 

2 characters 
4 characters 

7 characters 



(the decimal point 
counts as a character) 



When using PRINT # -1 and INPUT # -1 statements, you must be sure that 
the variables used in both statements match. It numeric variables are saved, Luca nu- 
meric variables must be used to retrieve that data. If string variables are saved, then 
string variables must be used to retrieve that data. 



INPUT # - 1 , A 

INPUT # -1 , A 

INPUT # - 1 , A$ 

INPUT # - 1 , A$ 



matches 
matches 
matches 
matches 



PRINT # -1 , A 

PRINT # - 1 , X 

PRINT # - 1 , AS 

PRINT # -1 , B$ 



(the same variable) 
(same type of variable) 

/ - t.l_\ 

(same vai lauic; 

(same type of variable) 



However, 



INPUT # - 1 , A 



does not match 



numeric variable 



PRINT # - 1 , A$ 

i 

string variable 



If you mix variable types in print # - 1 statements, use great care to match the varia- 
ble types in the input # - 1 statement. 



PRINT # - 1 , A, A$ , X 

INPUT # - 1 , A, A$ , X -4- 
or 

INPUT # - 1 , B, B$ ,C 



Used to save data file 

May be used to retrieve 
data file 



INPUT # -1 , AS, A, XS 



NO, NO, NO 



I 



These do not match 

the types used in 

the PRINT # -1 
statement. 



Well that's enough about cassette (lata liles for one cnapier. aiop now anu icao 
through the summary. Then try the Self-Test before going on. 
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Summary 



Even though you had probably used the cassette recorder before to CSAVE and 
CLOAD programs, this chapter introduced some new uses. You learned: 

• to transfer data from memory to tape. 

PRINT # -1 , A$ 



t t 

INT L 



PRINT 



on device 



the string 



PRINT # -1 , X 



the numeric value of X 



» that more than one data item can be saved on tape by the same PRINT # - 1 state- 
ment. 



PRINT # -1 , A, B, C 



three numeric 
values 



• to transfer data from tape to memory. 

INPUT # -1 , A$ 



t 

INPUT 



from device the string AS 



or 



INPUT # -1 



— The numeric value 
to be assigned to X 

• if data has been saved on tape using more than one data item per PRINT # - 1 
statement, it must be input in the same format. 

If you saved it this way: 

PRINT # -1 , A,B,C 



three numeric values 
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it must be input this way, 



INPUT # "1 , A,B,C 

three numeric variables. 



(The variable names do not have to be 
the same ones used in PRINT # — 1 , but 
they must be the same type., i.e., X,Y,Z 
would be OK, but NOT XS, Y$, ZS) 

" that the amount of tape used to save data files can be conserved by printing more 
than one item in a PRINT # -1 statement. 

. tu«* ♦«4oi r.,.rr.Kar rvf f^Via ror'tors cavpH hv cinp. PRINT Ji —\ .statcmcnt must not 
exceed 255. 



Self-Test 

1 . When we CLOAD a program, the program is read from a cassette into memory. 

Tg ihf r>rnorf>m read into ROM or into R.AM? - — — 

2. When you CSAVE a program, the TRS-80 records the program in its memory 

2 -^„2ap,tti5 the nroBTam copied from ROM or from RAM? 

3. Is it possible to enter information from a cassette into ROM? 

4. Is it possible to copy information from ROM onto a cassette? (Go ahead-guess!) 



If you said yes, please explain how this might be done. 



5. Suppose we RUN the following program. 



Ipp REM ** MYSTERY PROGRAM 2A-1 

lip A^t; — "BLUE" : BS ~ "YELLOW" : C$ = "PFH" 

12p CLS 

13^ PRINT "PRESS PLAY AND RECORD ON CASSETTE # - 1" 

14P PRINT "THEN PRESS THE SPACE BAR" 

15p KEYS = INKEYS : It' KEYS = THEN 1 3j3 

16(3 IF KEYS = " " THEN IVjJ ELSE 150 

17p PRINT # —I, AS, BS , CS 

999 END 



(a) Show what first appears on the screen. 
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(b) If you press the space bar, what happens? 



6. Here are our first KEYBOARD TO MEMORY TO TAPE and TAPE TO 

MEMORY TO SCREEN programs. Rewrite them so that instructions to the op- 
erator are given, as in exercise 5, above. 



REM ** KEYBOARD TO MEMORY TO TAPE 
1 10 CLS 
12(3 INPUT AS 

1 30 PRINT # -1 , A$ 
140 GOTO 120 

200 REM ** TAPE TO MEMORY TO SCREEN 

2 10 CLS 

220 INPUT # -1 , AS 
230 PRINT AS 
240 GOTO 220 
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7. Explain the following program: 



REM ** MEMORY TO TAPE 
1 1(3 CLS 
12(3 READ A$ 
1 3(3 PRINT # - 1 , AS 

14p IF A$ = "THAT'S ALL FOLKS!" THEN END 
1513 GOTO 12p 

160 DATA ABC, 12345678913, BLUE, COMPUTERTOWN USA! 

17p DATA TAKE A DRAGON TO LUNCH, TESTING, ONE, TWO, THREE 

IS? DATA "THAT'S ALL FOLKS!" 



8 . V/rite a program to put the first twenty-five prim.e numbers on a cassette as 
numeric (not string) values. The first twenty-five prime numbers are shown 
below. 

? <; 7 1 1 1 ■» 1 7 1 9 23 29 

31 37 41 43 47 53 59 61 67 71 
73 79 83 89 97 
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9. Write a program to put on tape the names and ages of the people below. Use a 
string variable for the name and a numeric variable for the age. Make five rec- 
ords, each containing one name and one age. 

JONES, 45 
KEYS, 22 
LARS, 27 
MUNZ, 52 
NANCE, 18 



1 0. Write a program to transfer from tape to memory to screen the data saved in ex- 
ercise 9. 



Answers to Self-Test 

1. RAM 

2. RAM 

3. No 

4. Yes. You could assign a variable to a PEEK statement such as A = PEEK(25), 
then PRINT #-1, A. 

5. (a) PRESS PLAY AND RECORD ON CASSETTE # -1 

THEN PRESS THE SPACE BAR 

(b) The tape moves and the data for A$, B$, and C$ is recorded. The tape then 
stops. 
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6. This is one way to do it. Yours may be different. If yours works, it is correct. Try 
it. 



1(30 REM ** KEYBOARD TO MEMORY TO TAPE 
1 1(3 CLS 

120 PRINT "INPUT A STRING WHEN THE ? APPEARS." 
130 PRINT "THEN PRESS THE ENTER KEY." 

140 PRINT "IF ALL ENTRIES HAVE BEEN MADE TYPE 'DONE' " 

150 PRINT "FOR YOUR INPUT." 

160 INPUT AS 

1 70 PRINT # - 1 , A$ 

1 S0 IF A$ — DONE THEN' Ei.'D 

190 GOTO 160 

200 REM ** TAPE TO MEMORY TO SCREEN 
210 CLS 

220 PRINT "PRESS PLAY AND RECORD ON CASSETTE # -1." 

220 PRINT "THEN PRESS THE SPACE BAR." 

230 KEYS = INKEYS, IF KEYS = "" THEN 230 

240 IF KEYS = " " THEN 250 ELSE 23 

250 INPUT # -1 , AS 

260 PRINT AS 

270 IF AS = "DONE" THEN END 
280 GOTO 250 



7. The program reads the items in the data list one at a time, turns on the recorder, 

clllU aa-VCS tut- ILOIH ivail. x ivwv/ivin^i vii*^!* x^^^*..— V — - — 

item. When the last item is recorded the program stops. 

8 . Here is one program. Yours, of course, may be different. Try yours to make sure 
it works. 



100 CLS 

1 10 FOR N = 1 TO 100 
120 M = 2 

130 IF N/MOINT(N/M) THEN M = M + 1 : GOTO 130 
140 IF N = M THEN PRINT # -1, N 

150 NEXT N 



9, 100 CLS 

1 10 FOR N = 

120 INPUT 

130 PRINT 

1 4 NEXT U 



1 TO 5 
A$ , A 

# -1 , AS, A 



10. 200 CLS 

2 10 FOR N = 1 TO 5 
220 INPUT # - 1 , A$ , A 
230 PRINT AS; "," ; A 

240 NEXT N 



CHAPTER FIVE 

More About Cassette Files 



In this chapter, you will learn more ways to copy information from the memory of the 
TRS-80 onto cassette tapes and read information from these tapes into the TRS-80's 
memory. You will learn to: 

» put information on a cassette tape by using the READ, DATA, and 

PRINT #1-1 statements, 
° put information stored in a numeric or string array onto cassette tape, and 
" read information from a cassette tape into an array. 

Something Old, Something New 

In chapter 4, you started with two programs called KEYBOARD TO MEMORY TO 
TAPE and TAPE TO MEMORY TO SCREEN. Here they are again: 



IpjJ REM **KEYBOAHD TO MEMORY TO TAPE 

1 ^^! CLS 

12p INPUT A$ 

1 3|2I PRINT #-1 , A$ 

14P GOTO 12(3 

2!3p REM ** TAPE TO MEMORY TO SCREEN 

21p CLS 

22p INPUT #-1 , A$ 

23(3 PRINT A$ 

24|3 GOTO 22(3 
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You used the first program (lines 100 through 140) to put information on tape (see 
page 67). Here's a different program to put information on tape. 

Ipp REM ** READ FROM MEMORY, PUT ON TAPE 

1 1 p CLS 

12? READ A$ 

13? PRINT #-1 , A$ 

14p GOTO Up 

Aha! Instead of getting the value of A$ from the keyboard, the TRS-80 will get it from 
a DATA statement. So, let's put the required mformation in uA i A siatemenis, as 
shown in the following program: 



1(3(3? REM ** INFORMATION TO PUT ON TAPE 

1(31? DATA ABC 

1?2? DATA 123456789? 

103 DATA BLUE 

1?4? DATA COMPUTERTOWN USA! 

1?5? DATA TAKE A DRAGON TO LUNCH 

1?6? DATA TESTING 

1?7? DATA ONE 

1?8? DATA TWO 

1?9? DATA THREE 

1 1 ?? DATA THAT ' S ALL FOLKS ! 

We put one item of information m each UaTA statement. Of course, you can pack 
more information per DATA statement if you wish. For exam.ple, it could be like this: 



10?? REM ** INFORMATION TO PUT ON TAPE 
1?1? DATA ABC, 123456789P, BLUE 

1?2? DATA COMPUTERTOWN USA! TAKE A DRAGON TO LUNCH 
1?30 DATA TESTING, ONE, TWO, THREE 
104? DATA THAT'S ALL FOLKS! 

We arbitrarily began our block of information at line 1000. You can choose a different 
block of line numbers. 

By now, you can put a fresh, blank tape in the recorder a.nd get everything ready 
to go. Do it! Then, run the READ FROM MEMORY, PUT ON TAFt, program. 
CLICK, WHRRR; CLICK, WHRRR; . . . and so on, as information is READ from 
DATA statements one item at a time and put on tape. 

Eventually, the last item in the last DATA statement is read and put on tape. 
The TRS-80 stops wi'di aii GUT OF DATA message on the screen. 



?0D ERROR IN 120 

READY 

>- 
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The information in the DATA statements has been recorded on a cassette tape. If all 
went well, 10 strings are on the tape, as follows: 





Direction of tape movement - 








\ 


COMPUTERTOWN USA! 


BLUE 


1234567890 


ABC 




and 


4th 


3rd 


2nd 


1st 


so on 


item 


item 


item 


item 





Did it happen? Find out by playing the tape back, using the program TAPE TO 
MEMORY TO SCREEN, just as you did in the preceding chapter (pages 78-80). 

Hmmm ... try the tape again using this version of TAPE TO MEMORY TO 
SCREEN. 



2)2(3 REM *» TAPE TO MEMORY TO SCREEN 

2 1!? CLS 

22p INPUT #-1 , A$ 

23p PRINT A$ 

235 IF A$ = "THAT'S ALL FOLKS!" THEN END ■< Add this Statement 

24p GOTO 22(3 



Numbers Instead of Strings 

Instead of string, let's put numbers on tape. The following version of READ FROM 
MEMORY, PUT ON TAPE uses a numeric variable (X) in lines 120 and 1 30. 



1(3(3 REM ** READ FROM MEMORY, PUT ON TAPE 

1 1 (3 CLS 

12(3 READ X — X is a numeric variable 

1 3(3 PRINT #-1 , X 

14(3 GOTO 12(3 

1(3(3(3 REM ** NUMBERS TO PUT ON TAPE 

1)310 DATA 1 , 2 , 3 , 4 , 5 

1)32(3 DATA 6, 7, 8, 9, 1(3 

1 (3 3 DATA 11, 12, 13, 14, 15 

1040 DATA 16, 17, 18, 19, 20 
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Are the numbers on tape? Find out. Play the tape back, using this program 
which you may recall from chapter 4. 

200 REM ** TAPE TO MEMORY TO SCREEN 
210 CLS 

220 INPUT #-1 , X 
2 30 PRINT X; 
240 GOTO 220 

If everything has been done right, the numbers from 1 to 20 are read from the tape and 
the screen looks like this. 



Of course! There aren't any more numbers on the tape, but your ever-patient TRS-80 
keeps looking for more numbers because that's v/hat you told it to do. 



123456789 10 11 12 13 14 15 1617 18 
19 20 

A 



At this point, the tape keeps running but no 
more numbers are printed on the screen. 



2 10 CLS 



X 






It isn't going to find more numbers, so: 



Press STOP on the tape recorder. 
Press the reset button on the TRS-80. 



Flags to the rescue! Change the last DATA statement, as follows. 



1040 DATA 16, 17, 18, 19, 20, 




ua.ia iiag. 



Then, add this line to the TAPE TO MEMORY TO SCREEN program. 



225 IF .X = - 



1 THEN END 
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Try the above changes. The flag (-1) is the last thing on tape. It is detected when you 
read the tape back into memory and causes the program to stop. If you want the flag 
(-1) to be printed on the screen, use 235 as the line number of the IF statement that 
looks for the flag. Feel free to choose a different number as the flag. A good choice 
might be 1 E37, a very unlikely number! 




Nayms and Numbers 

Do you remember the personal telephone directory program in the preceding chapter? 
If not, go back and browse through it again. You can now make an even more useful 
telephone directory by using arrays to hold the names and phone numbers. First, enter 
the names and numbers into two arrays, NAYMS (for the names) and NMBR$ (for 
the telephone numbers). Use the CLEAR statement to reserve enough memory space 
to hold your names and numbers. 

The following program segment allows you to enter names and numbers from 
the keyboard and store them in the array NAYMS and NMBRS. 



i;?!? REM ** PERSONAL TELEPHONE DIRECTORY 

11121 REM ** SET UP STRING ARRAYS NAYM$ AND NMBR$ 

12(3 REM ** NAYM$ = NAMES NMBR$ = PHONE NUMBERS 

13p CLEAR 5pj3(J 

14(3 DIM NAYM$(2pj3) , NMBR$(2j3p) 



Arrays NAYMS and NMBRS 
can store up to two hundred names 
and numbers with a maximum 
total of five thousand characters. If 
you need more, change lines 
130 and 140. 
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REM**KEYBOARD TO NAYM$ AND NMBRS 
2 1(3 CLS 
22p K = 1 

23(3 PRINT : INPUT "NAME " ; NAYM$(K) 
24^ INPUT "NUMBER" ; NMBR$(K) 
25p IF NAYM$ (K)="ZZZZZ" THEN 3 1(3 
26R K = K + 1 : GOTO 23fl 



RUN the program and enter these names and numbers in alphabetical order. Do 
NOT include commas in strings. We will explain why later. 



NAME 
Albrecht Bob 

COMPUTERTOWN USA! 
Inman Don 

People's Computer Co. 
Radio Shack 



zzzzz 

It should go like this: 



NUMBER 
4152326117 
41.5 323 3111 
415 323 6117 
415 323 3111 
817 390 3011 
415 327 0541 
999 999 9999 



This is the "end-of- 
directory" flag. 



NAME? ALBRECHT BOB 
NUMBER? 4 15 323 6 117 

NAME? COMPUTERTOWN USA! 
NUMBER? 415 323 3111 

NAME? INMAN DON 
NUMBER? 415 323 6117 

NAME? PEOPLE'S COMPUTER COMPANY 
NUMBER? 4 15 323 3 111 

NAME? RADIO SHACK 
NUMBER? 817 39(3 3(311 



NAME? 
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From now on, each new line will push a line off the top of the screen. This does not af- 
fect storing the information into the arrays NAYM$ and NMBR$. We continue: 



r 



NAME? ZAMORA RAMON 
NUMBER? 415 327 p541 

NAME? ZZZZZ -, 

NUMBER? 999 999 9999 -«i ' " hnd ot directory 

?UL ERROR IN LINE 25|3 

READY 

>- 



Oops! Check line 250 in the program. Aha! Since NAYM$(K) is equal to 
"ZZZZZ," the TRS-80 tried to go to line 310. Since there is, as yet, no line 310, it 
stopped with an Undefined Label error. We will fix that soon. 

Our little phone directory is now stored in arrays NAYM$ and NMBRS, as fol- 
lows. 



NAYM$(1) 


ALBRECHT BOB 


NMBR$(1) 


415 


323 


6117 


NAYM$(2) 


COMPUTERTOWN USA! 


NMBR$(2) 


415 


323 


3111 


NAYM$(3) 


INMAN DON 


NMBR$(3) 


415 


323 


6117 


NAYM$(4) 


PEOPLE'S COMPUTER CO 


NMBR$(4) 


415 


323 


3111 


NAYM$(5) 


RADIO SHACK 


NMBR$(5) 


817 


390 


3011 


NAYM$(6) 


ZAMORA RAMON 


NMBR$(6) 


415 


327 


0541 


NAYM$(7) 


ZZZZZ 


NMBR$(7) 


999 


999 


9999 



You can use direct statement to convince yourself that the directory is stored. Clear 
the screen, then: 



You type: print naym$(2) 

It prints: computertown usa! 

You type: print nmbr$(2) 

It prints: 4i 5 323 3 iii 



Or, you can do it this way: 



You type: 
It prints: 



print NAYM$(3), NMBR$(3) 
INMAN DON 415 323 6117 
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The next program segment stores the names and numbers on a cassette. First, it 
prompts you to press the play and record keys on the recorder. Of course, you have al- 
ready put a fresh new cassette in the recorder, haven't you? If not, do it now. 



3(3!? REM ** INSTRUCTIONS TO USER 

31!2 CLS 

32(3 PRINT "PRESS PLAY AND RECORD ON THE RECORDER 

33121 PRINT 

34(3 PRINT "PRESS THE SPACE BAR AND I WILL STORE" 

35(3 PRINT "THE NAMES AND PHONE NUMBERS ON TAPE." 

j6)i) KIj = iJMKlii^ : If K$ = '"' TH Ei-i 56jS 

37)3 IF K$ = " THEN 4 113 ELSE 360 

4!3|3 REM ** NAYM$ AND NMBR$ TO TAPE 

4)13 K = 1 

42(3 PRINT # -1, NAYM$(K), NMBR$(K) 

43)3 IF NAYM$ (K)="ZZZZZ" THEN 45(3 

44(3 K = K + 1 : GOTO 42)3 

45(3 PRINT : PRINT "DONE. REWIND AND REMOVE TAPE. ' 

46(3 END 



Store and RUN the entire program, lines 100 through 450. The directory is now 
stored on tape; it is also still in memory. 

We suggest you make a second copy on a second cassette. Remove the tape con- 
taining the first copy of the directory and position the second cassette in the recorder. 



DON'T type RUN 300 I 



When you type RUN or RUN 300, the TRS-80 first erases the values of all variables. 
Bye, bye directory! 



DO type GOTO 300 



1 he 1 kS-SO will go to line 300 and begin. Sit back for a few moments as the uunipuLcr 
puts a second copy of the directory on tape. Make as many copies as you wish. 
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Read and Use the Directory 

Next, we need a program to read the personal telephone directory and to look up num- 
bers. It begins like this: 

Ij^ja REM ** READ AND USE DIRECTORY 

11(3 REM ** SET UP STRING ARRAYS NAYM$ AND NMBR$ 

12p REM ** NAYM$ = NAMES NMBRS = PHONE NUMBERS 

13(3 CLEAR 5(3^(3 

14(3 DIM NAYM$ (2(3(3) , NMBR$( 2(3(3) 

Well, that certainly looks familiar, doesn't it? The next piece of the program reads the 
directory information from the tape cassette into NAYMS and NMBRS. 

2(3(3 REM ** INSTRUCTIONS TO USER 

21(3 CLS 

22(3 PRINT "PRESS PLAY ON THE TAPE RECORDER." 

23(3 PRINT 

24p PRINT "PRESS ANY KEY AND I WILL READ THE TAPE" 

25(3 PRINT "INFORMATION INTO MEMORY." 

26(3 K$ = INKEY$ : IF K$ = "" THEN 26(3 

3p!3 REM **TAPE TO NAYM$ AND NMBRS 

31(3 K = 1 

32(3 INPUT #-1, NAYM$(K), NMBR$(K) 

33(3 IFNAYMS{K) = "ZZZZZ" THEN 35|3 

34(3 K = K + 1 : GOTO 3 2(3 

35(3 PRINT : PRINT "DONE. REWIND AND REMOVE TAPE. " 

36(3 PRINT : PRINT "TO CONTINUE, PRESS ANY KEY." 

37p K$ = INKEY$ : IF K$ = "" THEN 37(3 



After you RUN this part of the program, the screen will look like this. 



PRESS PLAY ON THE TAPE RECORDER. 

PRESS ANY KEY AND I WILL READ THE TAPE 
INFORMATION INTO MEMORY. 

DONE. REWIND AND REMOVE TAPE. 

TO CONTINUE, PRESS ANY KEY. 
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The directory is stored. Press any key and the TRS-80 will continue with the following 
section of the program: 

REM ** ASK FOR NAME TO LOOK-UP 

4 1p CLS 

4213 INPUT "NAME" ; WHOS 

Spp REM ** SEARCH NAYM$ ARRAY FOR WH0$ 

51(3 K = 1 

52|3 IF NAYM$(K) = WHO$ THEN 6 1 p 

■lira TF N»VM$(K) = "7.9.7.V.V." THRN 7 1 C» 

54(3 K = K + 'l ': GOTO 52p 

if the name is in the directory, the TRS-80 Vv'ill find it and go to line 610. If the 
name is not in the directory, the TRS-80 will search through the entire array NAYM$ 
and find the flag ZZZZZ. In this case, it will then go to line 710. Blocks 600 and 700 
are shown below: 



byi^ REM ** PRINT THE NAME AND PHONE NUMBER 
eip PRINT NAYM$(K), NMBRS ( K ) 
6213 PRINT 
63|3 GOTO 42(3 

7(313 REM ** OOPS! NAME NOT IN DIRECTORY 

7 1(3 PRINT "THAT NAME IS NOT IN THE DIRECTORY." 

72(3 PRINT 

73(3 GOTO 42(3 

That's it. Enter the program and RUN it. The part of the program beginning at line 
400 might go like this. 

NAME? INMAN DON 

INMAN DON 4 15 323 6 117 

NAME? ZAMORA 

THAT KAME IE MOT IM THF DIRECTORY 

NAME? ZAMORA RAMON 

ZAMORA RAMON 41 5 327 (354 1 

NAME? and so on. . . 
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Hmmm . . . perhaps you are annoyed at having to type in the entire name exactly 
as stored in the memory. So, change block 500, as follows. 

5)3p REM ** SEARCH NAYMS ARRAY FOR WHO$ 

510 LWHO = LEN(WHO$) 

52P K = 1 

53!2 IF LEFT$(NAYM$(K) , LWHO) = WH0$ THEN 61(3 

54pi IFNAYM$(K) = "ZZZZZ" THEN 71(2 

55(3 K = K + 1 : GOTO 53p 

With this change, a RUN might look like this: 



NAME? INMAN 

INMAN DON 415 323 6117 
NAME? RADIO 

RADIO SHACK 817 39(2 3(211 
NAME? C 

COMPUTERTOWN USA! 415 323 3111 
NAME? Z 

ZAMORA RAMON 4 1 5 327 (254 1 
NAME? ZZ 

ZZZZZ 999 999 9999 
NAME? B 

THAT NAME IS NOT IN THE DIRECTORY 

NAME? and so on . . . 

Now you can enter the left part of a stored name. The computer will find the 
first name for which the leftmost part of the name exactly matches your entry. If no 
match is found, the computer will eventually find the flag "ZZZZZ" and tell you that 
your name is not in the directory. 

* Look at block 500. The statement 510 LWHO = LEN(WHO$) computes the 
length of the string WHO$ and assigns this value to LWHO. If the value entered 
for WHOS is INMAN, then LWHO will be equal to 5. 

* Then, look at line 530. The statement 530 IF LEFr$(NAYM$(K), LWHO) = 
WHOS THEN 610 compares the leftmost LWHO characters of NAYM$(K) 
with WHOS. If they are equal, the TRS-80 goes to line 610. Otherwise, the TRS- 
80 goes to line 540. 
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No Connmas, Please 



Don't include commas in strings stored in cassette files, even if you enclose the strings 
in quotation marks. When you try to INPUT #—1, a string which includes a comma, 
you will get only the part of the string to the left of the comma. 

Try this. First, enter the following program: 

10 CLS 

20 PRINT "PUT A FRESH TAPE IN THE RECORDER" 

30 PRINT "THEN PRESS PLAY AND RECORD" 

40 PRINT "NOW PRESS THE SPACE BAR" 

50 KS = INKEY$ : IF INKEY$ = "" THEN 50 

60 IF K$ = " " THEN 7(3 ELSE 50 



90 PRINT "REWIND TAPE, THEN PRESS PLAY" 

100 PRINT "PRESS THE SPACE BAR" 

110 KS = INKEYS : IF K$ = "" THEN 110 

120 IF K$ = "" THEN 130 ELSE 11(3 

1 30 INPUT- 1 , A$ 

140 PRINT A$ 

150 END 

RUN the program. It should go like this: 



PUT A FRESH TAPE IN THE RECORDER 
THEN, PRESS PLAY AND RECORD 
NOW, PRESS THE SPACE BAR 

REWIND TAPE, THEN PRESS PLAY 
PRESS THE SPACE BAR 

7EXTRA IGNORED ^ Older TRS-80s may not show thii 

COMPUTERTOWN 

READY , 

>- 

^i_„'-rT»o OA J fl-TTiT TT-mnT^z-A^Tir-M t to a i" a i^A 

i lie 1 ivo-ou stoi cu v^vyivxr o X ij/Avx v./ vv -L-N, on.; uii icipc cis £ rvty ati iii^a atpat aiwvj 

by a comma, even though the original string was enclosed in quotation marks. 
Change lines 130 and 140 as follows: 
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PRINT #-1, "COMPUTERTOWN, USA!" 




Aha! A comma 



1 30 INPUT #-1 , A$ , B$ 
140 PRINT A$ B$ 



With this change, the TRS-80 will read COMPUTER into A$ and USA! into B$. 
Try it. 
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Summary 



You have learned in this chapter to: 

" Put information on cassette tape by using READ, DATA, and PRINT #- 1 state- 
ments. 



12p READ A$ 

1 3J2 PRINT #-1 , A$ 

14(2 GOTO 12)3 

DATA ABC, 12345678913 



" Put information stored in an array onto cassette tape. 



41^ K = 1 

42(3 PRINT #-1, NAYM$(K) NMBR$(K) 
43)3 K = K + 1 : GOTO 42)3 



a Read information from a cassette tape into an array. 



31S3 K = 1 

3 2S3 INPUT #-1, NAYM$(K), NMBR$(K) 
330 K = K + 1 : GOTO 32(3 



° Store, retrieve, and use a Personalized Telephone Directory. 



Self-Test 



1 . Names and telephone numbers are in DATA statements as follows. 



1(3)3(3 REM ** INFORMATION TO PUT ON TAPE 
1(31(3 DATA ALBRECHT BOB, 415 323 61 17 
1(32(3 DATA COMPUTERTOWN USA!, 415 323 3 1 1 1 
1(330 DATA INMAN DON, 415 323 61 17 

104(3 DATA PEOPLE'S COMPUTER COMPANY, 415 323 3111 
1050 DATA RADIO SHACK, 817 390 3011 
1060 DATA ZAMORA RAMON, 415 327 0541 
1070 DATA ZZZZZ, 999 999 9999 
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Write a program to READ the names and phone numbers in the DATA statements 
into arrays NAYMS and NMBR$. Put the names into array NAYM$(1) through 
NAYM$(7) and the phone numbers into NMBR$(1) through NMBR$(7). 



2. Using the DATA statements in exercise 1 , write a program to store the names 
and ohone numbers in the DATA statements directlv onto a tane cassette. Do not nut 
the information into arrays NAYMS and NMBRS. 
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3. Our telephone directory program lets you look up a name, then gives you the 
phone number. Write a program segment, beginning at line 400, to ask for a number, 
then give the first name in the directory corresponding to that number. 



4. Modify your program of exercise 3 so that after the first name is displayed, 

* pressing the space bar causes the computer to continue searching for the same 
phone number. If another occurrence is found, display it. If not, quit when 
ZZZZZ is found. 

* pressing the Q key (for Quit) causes the computer to return to the beginning 
of your program segment and ask for another number. 



5. Modify the name look-up program blocks on pages 1 37 through 1 39 so that after 
name and phone number are found, 

* pressing the space bar causes the next name and number to be displayed. 

* pressing the Q key causes the computer to GOTO 410. 
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Answers to Self-Test 



1. IpjJ REM ** PERSONAL PHONE DIRECTORY 

1 ip CLEAR 5j3!3j2 

12!? DIM NAYM$(2pp), NMBR$ ( 2!3i2 ) 

2pp REM ** READ DATA & STORE IN ARRAYS 
21)3 CLS: K = 1 

2 2P READ NAYM$(K), NMBR$(K) 

23p IF NAYM$(K) = "ZZZZZ" THEN 25)3 

24j3 K = K + 1 : GOTO 22fl 

25)3 END 

I!3j3j3 DATA (use data from problem) 



or 



2 1(3 FOR K= 1 TO 7 

22(3 READ NAYM$(K), NMBR$(K) 

2 30 NEXT K 

24)3 END 

2. REM ** STORE NAMES AND PHONE NUMBERS 

1 1 13 CLS : K = 1 
1 2|3 READ NAYM$ , NMBR$ 
13(3 PRINT #-1, NAYM$, NMBR$ 
14p IF NAYM$ = "ZZZZZ" THEN 1613 
15)3 K = K + 1 : GOTO 12(3 
lb{il END 

1(30(3 DATA (same as problem) 



3. 4(3(3 REM ** SELECT NAME BY PHONE NUMBER 
41(3 CLS 

42(3 INPUT "PHONE NUMBER" ; N$ 
43(3 K = 1 

44(3 IF NMBR$(K) = N$ PRINT NAYMS(K) : GOTO 42)2 

45p IFNMBR$(K) = "ZZZZZ" PRINT "NUMBER NOT FOUND" : GOTO 5(3(3 

46)3 K = K + 1 : GOTO 44(3 

5(3(3 END 

4. 44)3 IF NMBR$(K) = N$ PRINT NAYM$ ( K ) : GOTO 47J3 

45(3 IF NMBR$(K) = "ZZZZZ" PRINT "NUMBER NOT FOUND" : GOTO 51(3 
46)3 K — K 1 : GOTO 44(3 

47(3 A$ = INKEY$ : IF A$ = "" THEN 46(3 
48p IF A$ = " " THEN 44)3 
49(3 IF A$ = "Q" THEN 4 1(3 
5(3(3 GOTO 47(3 
51)3 END 



5. 63(3 AS = INKEYS : IF AS = "" THEN 6 3(3 

64(3 IF AS = "" PRINT NAYM$(K+1), NMBR$ ( K+ 1 ) 
65(3 IF A$ = "Q" THEN 41(3 



CHAPTER SIX 



Disk Operation 



So you want to upgrade your TRS-80 system for disk operation? If you're not sure you 
need a disk, you should read this chapter to see the capabilities available. If you're not 
interested in disk operations, skip this chapter and the next one. 
In this chapter you will learn: 

» the advantages of disk over cassette operation, 

a) faster 

b) more capacity 

c) more reliable 

" what components are necessary for a minimum TRS-80 disk operating 
system, 

• how to get your disk system running, 

» how Radio Shack designates changes to its Disk Operating System by a 

version number, 
about the care of disks, 

• how to make a back-up of the TRSDOS software diskette with a one-disk 
system, 

a) the difference between Source 
and Destination disks 

b) how to swap disks when prompted 

c) how a successful back-up is signified 
» why a back-up is needed, 

• how to display a File Directory, 

• how to SAVE a program on disk from BASIC, 

» how to LOAD and RUN a program previously stored on disk, and 

• how a two-disk system differs from a one-disk system in operation. 

a) back-up procedure 

b) disk use 

Even if you have a two-drive system, the single-disk procedures will be 
useful should one of your drives break down. 
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A diskette is a circular plastic sheet that is coated with a layer of ferromagnetic 
material. It is permanently sealed inside a protective jacket to prevent bending, creas- 
ing, scratching, and contamination from foreign objects. Avoid touching the plastic 
portion — handle by the jacket carefully. 




protect 



hole 



The write protect notch of the TRSDOS diskette is covered by a tape (or tab) so 
that the information on it is protected. 



LABEL 



1- 



-Protect tab 



The TRS-80 disk drive is a mass storage device providing much more storage 
than is available on a cassette recorder. Data can be stored on disk and retrieved from 
disk much quicker than when using a cassette recorder. In addition, the disk is much 
more reliable and you don't have to worry about critical volume settings, as you do 
with the cassette recorder. 

Read your TRSDOS and DISK BASIC Reference Manual (Radio Shack Cata- 
log Number 26-2104) carefully for technical information. 



TRSDOS means Tandy/Radio Shack Disk Operating System 



We will assume that you have learned how to make the necessary connections so that 
you may get right into disk operation. If you don't remember, study the TRSDOS and 

n. frty -rr jr» tr^rt^ r» a^-, — f «^ — .■^li-'iU ■./*-»,■»■<•• f^Inlr c^\jc\'^t>-rr\ 



DISK OPERATION 



mg: 



In order to run the Radio Shack disk system, you need a minimum of the foUow- 

1 ) CPU/keyboard unit with 1 6K RAM, 

2) Video monitor, 

3) Expansion interface (Radio Shack Catalog Number 26- 1 1 40) with 1 6K 
additional RAM recommended, 

4) One disk drive (Radio Shack Catalog Number 26- 1 1 60) and the 
TRSDOS diskette, 

5) One blank diskette (Radio Shack Catalog Number 26-305), and 

6) Optional — additional blank diskettes. (Highly recommended!) 

The minimum disk system would look like this: 




Although a disk system may be used with only 16K of RAM, there will be little 
room left for your own programs. Since one of the primary advantages of a disk system 
is the capability to store huge programs and lots of data, we recommend that you have 
a minimum of 32K of RAM. This means 16K in the keyboard unit and 16K more in 
the expansion interface. 

The first disk drive is designated Drive (zero). When the disk system is in use, 
Drive always contains the TRSDOS diskette, which has the operating system soft- 
ware on it. The diskette also contains an executive program to control operations and 
several auxiliary programs, including DISK BASIC. 

Your first disk operation should be to duplicate the TRSDOS diskette onto a 
blank diskette. The disk system is useless without the TRSDOS diskette. Therefore, a 
duplicate should be made before you remove the write protect tape from the TRSDOS 
diskette. In fact, we recommend that you never remove the write protect tab. The 
back-up diskette which you will make will be a working copy of the original diskette. 
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The write protect tape prevents any information from being written onto the diskette. 
It is placed on the TRSDOS to prevent the vital information already there from being 
destroyed. 



Duplicate the TRSDOS diskette before you 
do any other disk operation. Directions 
for this operation will follow shortly. 



Power Up and Duplicate TRSDOS 



Connect the expansion interface and your disk drive(s) in the manner described in 
your TRSDOS and DISK BASIC Reference Manual (Radio Shack Catalog Number 
26-2104). 



Always power up the peripherals (disk drive(s), printer, expansion interface, 
etc.) first. Turn on your TRS-80 CPU/keyboard unit last of all. 



The power switch for the disk drive is on the rear of the unit. Power ON is the up 
position of the switch, power OFF is down. 
In general, 

1 ^ t!irn on thf^ fixrj.^r!Kiop. interface. 

2) turn on your disk drive(s) , 

3) open the front door of the drive and insert the TRSDOS diskette, mak- 
ing sure it is all the way in. Then close the disk dooV. If it doesn't close 
easily, don't force it. Reinsert the diskette and try again. 
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4) Turn on the CPU/keyboard unit. The computer will instantly attempt to 
load TRSDOS from Drive 0. Therefore, the TRSDOS diskette must be 
in Drive when the CPU/keyboard is turned on. 
Another approach to these four steps is to plug all devices into an adequate 
power strip (such as Radio Shack Catalog Number 26-1451) and turn them all on at 
one time from the power strip's single switch. 




Now, power up the TRS-80 for disk operation according to the previous direc- 
tions, and you'll be ready to duplicate the TRSDOS diskette. Remember, we are as- 
suming that you have only one disk drive (Drive 0). 

As the system comes on, you'll hear a whirr and clackety-clack as TRSDOS is 
loaded into memory from the disk. A program called the executive program has been 
loaded into the first 4K bytes of RAM. It stays there while TRSDOS is in control to 
make sure the computer will follow the necessary disk operating procedures. 

Then the video display shows this message: 



TRSDOS - DISK OPERATING SYSTEM - VER 2.3 
DOS READY 



-Your version 
may have a 
different 
number 



The TRSDOS is revised from time to time. A new version 
represents a substantial expansion of the previous version. 
The integer part of the version number shows which ver- 
sion is present. Ours is version 2. A new release is simply 
an update of the previous version. A later release gener- 
ally includes wider implementation and efthancements, as 
well as fixes for earlier problems. A new release is signi- 
fied by the decimal part of the version number. Ours 
shows release .3. Thus the complete version number we 
are using is 2.3. 
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You can see from the video display that TRSDOS, version 2.3 (or whatever ver- 
sion you have), has been loaded. The prompt "DOS READY" indicates that the disk 
operating system is ready and waiting for your first command. Notice that the prompt 
used in BASIC (>) is not displayed. Only the cursor shows. 



This can serve as a reminder of whether you are in the disk command mode or BASIC 
language mode. 

Now, it's time to make a back-up copy of the original TRSDOS diskette. A 
back-up copies the operating system from the original diskette into memory and then 
onto your blank diskette. V/hen using a one-disk system, each disk that you use must 
have the operating system on it. Even though programs may be stored on the original 
TRSDOS diskette, it is a good idea to save the original for the back-up pruucduie only. 

You should have both the TRSDOS disk and a blank disk ready now for the 
back-up procedure. 



When using only one drive, you must swap the 
TRSDOS diskette (the SOURCE) and your blank disk (the 
DESTINATION) several times during the back-up proce- 
dure. The BACK-UP program will tell you when to insert 
the DESTINATION disk and when to reinsert the 
SOURCE disk. 



Are you ready to BA.CK UP your TRSDOS diskette? 




DOS READY 



Cursor 
only — 



If so. 



lype: BACKUP (and press ENTER) 



Display: 



r 



TRS DISK BACKUP UTILITY VER 2.3 
SOURCE DRIVE NUMBER? 
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Remember, this procedure is being used with one disk drive (Drive 0). 
Therefore, . . . 

Type: (3 (and press ENTER) 

Display: 



TRS DISK BACKUP UTILITY VER 2.3 

SOURCE DRIVE NUMBER?!? 
DESTINATION DRIVE NUMBER?- 



Since there is only one drive, the back-up is made from Drive to Drive 0. That 
is why the disks must be exchanged in the drive as you go through this procedure. A 
second drive would make it simpler, but for one drive you must . . . 

Type: ^ (and press ENTER) 

Display: 



TRS DISK BACKUP UTILITY VER 2.3 

SOURCE DRIVE NUMBER?!? 
DESTINATION DRIVE NUMBER?!? 
BACKUP DATE (MM/DD/YY) 



•year 

■ day 

■ month 



all two-digit 
numbers with 
slash separators 



up. 



Do not type in the parentheses; just add the date that you are making the back- 
Type: present date 

Example: 05/22/81 (for May 22, 1981) 
Display: 



TRS DISK BACKUP UTILITY VER 2.3 

SOURCE DRIVE NUMBER?!? 
DESTINATION DRIVE NUMBER?!? 
BACKUP DATE ( MM/DD/YY ) ?!?5/22/8 1 
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When you press the ENTER key, TRSDOS will start the BACK-UP procedure. 
The computer first formats the blank diskette, locking out any defective tracks on the 
disk. It then duplicates the contents of the TRSDOS diskette onto the blank diskette. 

The example shown here is for TRSDOS 2.3. If you have a different version, the 
number of disk exchanges that are necessary may be different. 



r 



BACKUP DATE ( MM/DD/YY ) ?|35/ 1 8/8 1 



INSERT SOURCE DISK (ENTER) 



this message flashes 
on and off 



Tf ,, C~,,_«„ r\;ol, /"tUo TI>Cr»r»C ri;cV<.t+o\ ic ci1r<>aHv in tVip Hrivp nrpss FNTPR . If 

11 V y)\X 1 kjvwuiwv ij-ia«v \, L! 1 V j =v>-ji^^ — '■' — ' J -5 X 

not, insert the Source Disk, close the drive door, and press ENTER. 



The display shows: 



r 



BACKUP DATE ( MM/DD/YY ) 7R5/22/8 1 



INSERT DESTINATION DISK (ENTER) 



Flashing message 



Now, you must make one of the several disk exchanges. Open the drive door, 
take out the Source Disk and insert the Destination Disk. Then close the drive door 
and press ENTER. 



Then the display shows: 



r 



BACKUP DATE ( MM/DD/ Y Y ) ? P 5 / 2 2 / 8 1 



FORMATTING TRACK 3 4 
VERIFYING TRACK XX, SECTOR YY 



XX and YY are 




two-digit numbers that 
increase as tracks 
and sectors are 
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When all tracks and sectors have been verified or locked out, the display shows: 



FORMATTING TRACK 34 
VERIFYING TRACK 34, SECTOR (39 



INSERT SOURCE DISK (ENTER) 



These numbers may 
differ for different 
versions ofTRSDOS 

Flashing 



The computer is now ready to copy the negessary information from the 
TRSDOS disk to your blank disk. Therefore, you have to first place the TRSDOS disk 
in the drive to load the information from that disk to the computer's memory. 



Switch the disks again - Destination out 
Source in -a 



3 



and press ENTER 

When this portion is finished, the display shows: 

r ~ 



FORMATTING TRACK 34 
VERIFYING TRACK 34, SECTOR 09 



Be sure you 
get the right 
disks. 



LOADING TRACK 20, SECTOR (39 
INSERT DESTINATION DISK (ENTER) 



Flashing 



Now the computer nfust copy the data from memory onto the blank disk. There- 
fore, the blank disk must go into the drive. 

Switch disks - Source out 

Destination in 



Press ENTER and wait . . . 



FORMATTING TRACK 34 The Computer altcr- 

VERiFYiNG TRACK 34, SECTOR 09 natcly displays the 

work COPYING and 

LOADING TRACK 2(3, SECTOR (39 VERIFYING aS it first 

VERIFYING TRACK 2(3, SECTOR 09 -9 copies, and then 

INSERT SOURCE DISK (ENTER) Verifies cach 

sector of each track. 
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The computer has loaded 20 tracks of the TRSDOS disk, copied them onto the 
blank disk, and verified that all 20 tracks were copied correctly. It's now time to load 
some more information from the TRSDOS disk. 

Switch disks again and press ENTER. 



FORMATTING TRACK 34 
VERIFYING TRACK 34, SECTOR (39 

LOADING TRACK 2|3 , SECTOR 09 
VERIFYING TRACK 2^, SECTOR 09 
LOADING TRACK 31, SECTOR 09 

INSERT DESTINATION DISK (ENTER) -4 —Flashing 



Tracks 21 through 31 have been loaded from the TRSDOS disk into the comput- 
er's memory. It's now time to copy them onto the blank disk. 

Switch disks again - destination disk in - then press ENTER. 



Tracks 21 through 31 have now been copied and verified. Just a little more to go. 
More data must now be loaded from the Source Disk. 

Switch disks again, press ENTER. 



LOADING TRACK 20, SECTOR 09 
VERIFYING TRACK 20, SECTOR 09 . 
LOADING TRACK 31, SECTOR 09 
VERIFYING TRACK 31, SECTOR 09 

LOADING TRACK 34, SECTOR 09 -a AlmOSt 

INSERT DESTINATION DISK (ENTER) 



r 



r 



LOADING TRACK 20, SECTOR 09 
VERIFYING TRACK 20, SECTOR 09 
LOADING TRACK 31, SECTOR 09 
VERIFYING TRACK 31, SECTOR 09 
INSERT SOURCE DISK (ENTER) 



COPYING then 
VERIFYING 




need the blank disk (Destination) in the drive again. 
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Switch disks one more time and press ENTER. 

_ 



LOADING TRACK 2|3, SECTOR (39 
VERIFYING TRACK 2J3, SECTOR (39 
LOADING TRACK 31, SECTOR (39 
VERIFYING TRACK 31, SECTOR (39 
LOADING TRACK 34, SECTOR (39 
VERIFYING TRACK 34, SECTOR (39 

BACKUP COMPLETE ^ . DONE AT LAST 

HIT 'ENTER' TO CONTINUE 



Watch for the BACKUP COMPLETE. If your disk BACK-UP has been sue 
cessful, that is the message you will see at the end of the operation. However, if you 
see: 

r~~ 



BACKUP REJECTED DUE TO (.....) 

erase the diskette with a bulk eraser (such as Radio Shack Catalog Number 44-210) 
and repeat the BACK-UP procedure. If it still doesn't work, try using another blank 
diskette. 



NOTICE: The BACK-UP utility program is provided by Radio Shack solely 
for your personal use. It is legal to use it to maintain copies of 
your TRSDOS and data diskettes. It is not legal to make copies 
for sale. 



You may now put your original TRSDOS disk away for safekeeping. Keep it in a 
protective envelope. A case for protecting up to 10 disks is available from Radio Shack 
(Catalog Number 26-1452). Radio Shack also has a box which will protect up to fifty 
disks (Catalog Number 26-1450). 

From now on, use the working copy. (Hmm . . . then it is not a back-up copy.) 
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Displaying Disk Files 

You now have a back-up copy of the TRSDOS on your previously blank disk. Use this 
as a working disk in the future and save the original TRSDOS disk for making future 
back-ups. 

The disk operating software must be in the system for disk operation. Therefore, 
if you have a one-disk system, TRSDOS should be available on the disk that you are 
using. 

___ — 1 

Each time you need a new disk, repeat the BAGK-UP procedure to copy 
TRSDOS from the original disk to the new blank dis k. 

To see what has been copied onto your working disk, place it in the disk drive and 
close the drive door. If you continue from the completed BACK-UP procedure, it is al- 
ready in the drive. After the "HIT 'ENTER' TO CONTINUE" message, do as it says 
— press the ENTER key. 

— 

TRSDOS -DISK OPERATING SYSTEM - VER 2.3 

DOS READY Whenever the DOS READY 

prompt is displayed, you 
^ may enter a command. 

To see what programs iiavc bccii piaceci on your vIiSiC, iooK at iiic iiic GirciJimy. 



Type: DIR, and press ENTER 



FILE DIRECTORY DRIVE TRSDOS -- 05/22/81 

TEST1/CMD GETDISK/BAS TEST2/BAS 

DISKDUMP/BAS GETTAPE/BAS TAPEDISK/CMD 

DOS READY 



.r;-! l~^ , '. .--ii-- j: ,>4--!i;<-ii t^^-/^(TT.".rt-ic Q-.railcsWf fnr vmir use. No- 

1 ne llies Sliuwii m mc uncviuiy Clio umitji og,» cliiiu w ^ 

tice the letters following the slash in each file name. CMD means the program is ac- 
cessed by a command from TRSDOS. BAS means that DISK BASIC must be ac- 
cessed before using the program. 

TRSDOS provides many of these utility programs that you will use as you be- 
come more familiar with the disk system. A detailed discussion of the utilities would 
be inappropriate at this time. However, you will be using the DIRectory to look for 
„„„ ~-r^., „,:\\ nr^-^-^.a fn eV:ffnti\f-j iafter vfis! r.RVft SA V"Rd a DrO- 

jruui j/.^e-""-"- 

gram of your own. 
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Saving a BASIC Program on Disk 

One of your first disk operations is to save a BASIC program on your disk. To demon- 
strate, let's use the short program from chapter 3 that painted the screen white and 
poked black holes in the painting. 

PAINT SCREEN AND POKE HOLES 

Ip REM * LIGHT A WHOLE BLOCK * 
2p CLS 

313 FOR M = 1536!? TO 16383 
4p POKE M, 191 
Sfl NEXT M 

6fl REM * POKE BLACK HOLES * 
7(3 R = RND( 1(324)4-15359 
8(3 POKE R, 128 
90 GOTO 7(3 

To enter the program with the disk system on, you must first access DISK 
BASIC. 



DOS READY 

BASIC- Type: BASIC (and press ENTER) 

HOW MANY FILES?- 



You respond to this question with the maximum number of disk files that will be 
in use (such files are said to be open) at any one time. The number must be from 
through 1 5. If no number is given, 3 files will be open for use. Rather than go into a 
lengthy discussion of file space at this point, we'll not input a number. Just press the 
ENTER key. 

HOW MANY FILES? 
MEMORY SIZE? - 

The second question should be familiar to you from Level II BASIC. Since you 
are not protecting any memory for machine language programs, just press ENTER 
again. 

r~ ^ — ' 

HOW MANY FILES? 
. MEMORY SIZE? 

RADIO SHACK DISK BASIC VERSION 2.2 
READY 

>- -8 prompt and cursor 
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Now enter the PAINT SCREEN AND POKE HOLES program, lines 10 through 90. 



r 



> 1 



REM 



LIGHT A WHOLE BLOCK 



>8!2 
>9P 



POKE M, 128 
GOTO 7p 



>- 



To save the program, which is now in the computer's meaiory type: 



SAVE"HOLES/B.^^ 



Name of program 




This command (SAVE "HOLES/BAS") saves program in compressed format, which 
takes up less disk space and is faster loading and saving than other formats. 

Press the ENTER key after the SAVE instruction. The program is copied from 
the computer's memory to disk. When it is finished (it won't take long), the display 
will show: 



>9(3 GOTO 7|3 
>SAVE "HOLES/BAS" 
READY 




Notice that both prompt and cursor 
are displayed; this means that 
you are still in BASIC. 



To get back to TRSDOS at any time . . . 



Type: CMD "S" and press ENTER 
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You should go back to TRSDOS to make sure that the program has really been 
saved. Use CMD "S" to do this. 



>90 GOTO 7(3 
>SAVE "HOLES/BAS' 
READY 
>CMD "S" 



DOS READY 



Now you are back 
in TRSDOS. 



Now look at the directory to see if the program is there. 

Type: DIR, and press ENTER 



There's - 

your 

program 



FILE DIRECTORY 



DRIVE p TRSDOS 



P5/22/81 



TESTI/CMD GETDISK/BAS TEST2/BAS 
HOLES/BAS DISKDUMP/BAS GETTAPE/BAS 
TAPEDISK/CMD 

DOS READY 



Let's go back to BASIC now to see if we can access the HOLES program from 
the disk. Remember the necessary command? 



DOS READY 

BASIC- (then press ENTER) 



HOW MANY FILES? 
MEMORY SIZE? 



RADIO SHACK DISK BASIC VERSION 2.3 

READY 

>- 



(press ENTER) 
(press ENTER) 
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Since you are in BASIC, you should LIST to see if the HOLES program is still 
in memory. 



>lTs\' ^^'^^ *° ^^^^^ 

READY -8 to have wiped the program 

out of memory. 



Since the program is no longer in memory, you'll have to load it back in from the 
DISK. Oh well, that's what you really wanted to learn how to do anyway. At this 
point, you may either LOAD the program from disk into memory and then RUN it, or 
you may LOAD and RUN it immediately with one command. We'll show both 
methods- 



a) First method - LOAD program, then RUN it. 
Type: LOAD "HOLES/BAS" (and press ENTER). 



READY 

>LOAD "HOLES/BAS" 

READY 

>- 



After a brief whirr, 
the program is loaded. 



Type: RUN (and press ENTER). 




Screen is painted 
white and black 
holes appear — 
the program is 
running. 



Press the BREAK key to stop the program. 

b) Second method - LOAD and RUN immediately. 

Tvne: NEW to erase the program from memory. 
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Then type: RUN "HOLES/BAS" (and press ENTER). 




The program loads 
and immediately 
starts running. 



Again, press the BREAK key to stop the program. 

You have now used your disk to save your first BASIC program. You can find it, 
load it, and run it at any time. Be sure to label any disks on which you have placed pro- 
grams so that you can quickly find them. If you don't,, you'll have to search the directo- 
ries of each of your disks until you find the program that you want. 

Using a Two-Disk System 

If you have two disk drives, you will find that your system is more convenient and eas- 
ier to use than a one-drive system. One drive (Drive 0) can be used to hold a disk that 
has the operating software on it. The second drive (Drive 1) can then hold a "working" 
disk that does not need to contain the operating system software. Therefore, there will 
be much more storage space on the disk for your own files. 

We'll show you how easy it is to make a back-up of the TRSDOS disk with a 
two-disk system. 

1 ) Insert the TRSDOS disk in Drive 0. 

2) Insert a blank disk in Drive 1 . 

Drive 1 • Drive 
/ / 
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3) Power up your system and go. 



TRSDOS - DISK OPERATING SYSTEM - VER 2„3 
DOS READY 



Type: BACKUP (and press ENTER). 



TRS DISK BACKUP UTILITY VER 2.3 
SOURCE DRIVE NUMBER?- 



The Source disk (TRSDOS) is in Drive 0, so. . . 
Type: (and press ENTER). 



TRS DTSK BACKUP UTILITY VER 2„3 

SOURCE DRIVE NUMBER?? 
DESTINATION DRIVE NUMBER?- 



Your Destination disk (now blank) is in Drive 1, so . . . 
Type: 1 (and press ENTER). 



TRS DISK BACKUP UTILITY VER 2.3 

SOURCE DRIVE NUMBER?!? 
DESTINATION DRIVE NUMBER?! 
BACKUP DATE ( HM/ DD/ 'i "i ) ? - 



1 ype; uic prcScm uaic (say may zo, 1 70 1 /. 



r 



SOURCE DRIVE NUMBER?^ 
DESTINATION DRIVE NUMBER?! 
BACKUP DATE { MM/DD/YY ) ?(3 5/28/8 ! - 
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When you press the ENTER key, the back-up procedure begins. With two disks, 
you no longer have to swap disks as the process goes along. The back-up goes merrily 
on its way uninterrupted. 



BACKUP DATE ( MM/DD/ Y Y ) ? (3 5 / 28/8 1 

FORMATING TRACK 34 -a 

VERIFYING TRACK 34, 
VERIFYING TRACK 34, 
VERIFYING TRACK 34, 
BACKUP COMPLETE 



SECTOR !39 
SECTOR |39 
SECTOR 



- This goes on continuously 
until the sectors 
of all tracks are 
loaded, copied, and 
verified. 



HIT 'ENTER' TO CONTINUE 



The process is nnuch quicker and easier if you have two disk drives. To see the file 
directory of the disk system in Drive 1, you must specify the drive number. 



DIR:1 




directory number 



■> The command DIR will display the file 
directory of the disk in Drive 0. 

• The command DIR: 1 will display the file 
directory of the disk in Drive 1 . 



LOAD, SAVE, and RUN with a Two-Disk System 

The commands to SAVE, LOAD, and RUN BASIC programs are similar to those 
demonstrated with the one-disk system. Once again, the disk drive number must be 
specified if the drive desired is not Drive 0. To save a program from the computer's 
memory to the disk in Drive 1, first access DISK BASIC. 



a 
e 

B 

DOS READY 



BASIC- 



Type: 



BASIC and press ENTER 
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Type: 



HOWMANY FILES? ^ pfCSS ENTER 

MEM SIZE? ^ press ENTER 

RADIO SHACK DISK BASIC VERSION 2.3 
READY 



SAVE "HOLES/BAS:l" 

' , 'T 



same as for colon drive number 

Drive in a 

one-drive 

system 

The- same is true to T OAD or RUN a BASIC croeram that is on Drive 1 . 



LOAD "HOLES/BAS:!" 
or 

RUN "HOLES/BAS: 1" 



As stated earlier, the disk in Drive 1 does not have to contain the disk operating 
arc (ii is av 
the second disk. 



soiiwarc (ii is avaiiauic iiuiii i^iivc u). i ut-ioiui v, cKJlclg^./ cJ/c^^-v- .x.u.i^u. 



Summary 

You now have some knowledge of TRSDOS (Tandy/Radio Shack Disk Operating 
System). Although, you have barely scratched the surface of the disk operating sys- 
tem, you have made a good beginning. You learned: 

^ that disk operation is faster, more reliable, and has more storage capacity 

than cassette operation, 
« that an expansion interface, 32K of memory, and at least one disk drive 

are needed, 
• a new power-up procedure, 

o that the first drive in your system is named Drive 0, and it must contain 

the TRSDOS software disk, 
' that TRSOOS has been nublished in several versions — version 2.3 is 

demonstrated in this chapter, 
" to BACK UP your TRSDOS uiskeLLc wlLii uiic disk cinvc, 

a) The Source disk contains TRSDOS. 

b) The Destination Disk is originally 
blank — the BACK-UP copies TRSDOS 
from the Source disk onto the 
DesliriaLson disk. 

9 to display the file directory of the disk in Drive 0, 
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" to SAVE a BASIC program from memory onto Drive 0, 

SAVE "HOLES/BAS" 

/ \ 
file name a BASIC program 

« to LOAD, or LOAD and RUN a BASIC program from disk, 

LOAD "HOLES /BAS"-« loads a BASIC program 

RUN "HOLES /BAS" loads and runs a BASIC 

program 

o how to get back and forth between TRSDOS and BASIC, 

BASIC ^ a TRSDOS command that executes DISK BASIC 

CMD "S"-« a BASIC command that sends control back 

to TRSDOS 

° how easy it is to BACK UP TRSDOS using a two disk system, and 
s to alter the SAVE, LOAD, and RUN commands for use on a two disk 
system. 

SAVE "HOLES/BAS: 1 " ^saves "HOLES" on disk Drive 1 
LOAD "HOLES/BAS: r' ^loads "HOLES" from disk Drive 1 
RUN "HOLES/BAS: 1" -* — loads and runs "HOLES" from 

disk Drive 1 

Self-Test 

1 . What do the letters in "TRSDOS" represent ? 



2. Why must TRSDOS be on each disk if you are using a one-drive 
system? 



3. What is the purpose of a write protect tape on a disk? 



4. Number the power-up steps in the recommended sequence (1,2,3,4). 
Turn on the keyboard unit 

Turn on the expansion interface 

Insert disk 

Turn on disk drive(s) 

5. This chapter demonstrates TRSDOS version 2.3 which means: 
version release 

(2 or 3?) (2 or 3?) 

6. Tell in your own words why you have to swap disks when performing a BACK- 
UP with a one-drive system. 
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7 . When starting the BACK-UP procedure, TRSDOS is on the 
disk. 

(source, destination) 

8. When using a one-drive system, give the correct response to these questions. 

SOURCE DRIVE NUMBER? 

DESTINATION DRIVE NUMBER? 

9. Write in the correct command for displaying the file directory of the disk in 
Drive 0. 



1 0. In order to SAVE a BASIC program named "WHITE" on a disk with a one- 
drive system, the correct command would be: 



11. If you are using DISK BASIC, and CMD "S" is executed, fill in the display. 

r 



READY 
>CMD ' "S" 



1 2. Why is it easier to make a BACK-UP with a two-drive system than with a one- 
drive system? 

13. If you have two drives, what would be your answers to the following? 



TRS DISK BACKUP UTILITY VER 2.3 

SOURCE DRIVE NIIMRKR^ 

DESTINATION DRIVE NUMBER? . 

14. Suppose you have a BASIC program named "COUNT" on a disk in Drive 1 , 
and you want to load and run it immediately. Give the necessary DISK BASIC 
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Answers to Self-Test 

1 . Tandy / Radio Shack Disk Operating System 

2. Because the operating software contained in TRSDOS must be available for 
successful disk operation 

3. So that information cannot be written over the essential TRSDOS 
software 

4. 4 Turn on the keyboard unit 

1 Turn on the expansion interface 
3 Insert disk 

2 Turn on disk drive(s) 

5. 2 version 
3 release 

6. The BACK-UP procedure loads information from TRSDOS (the Source) and 
then must copy it back to a blank disk (the Destination). Therefore, disks must 
be exchanged. 

7. Source 

8. SOURCE DRIVE NUMBER70 
DESTINATION DRIVE NUMBER70 

9. DIR (or DIR:|2) 

10. SAVE "WHITE/BAS" 

1 1 . DOS READY 



1 2. The disks do not have to be swapped. 

13. SOURCE DRIVE NUMBER?^ 
DESTINATION DRIVE NUMBER? 1 



14. 



RUN "COUNT/BAS : 1' 



CHAPTER SEVEN 

Using Disk Files 



Now that you know how to get the disk system running, we will explore the use of se- 
quential disk files. In this chapter you will learn: 

o what the computer wants when it asks "HOW MANY FILES?" as you 

access Disk BASIC from DOS, 
«> the format to OPEN disk files for use, 

» the format to CLOSE disk files after you have finished using the files, 
= how to use a program to create a disk file and save it on a disk, 
a how to use a program to load a disk file from a disk into the computer's 
memory, 

' how to add data to a disk file, and 

• how to use a program that includes the ability to: 

a) create a new data file from the keyboard, 

b) input a data file from disk, 

c) add records to a data file, 

d) delete records from a data file, and 

e) examine records in a data file. 



Creating a Data File 

In chapter 6 you learned how to save a BASIC program in a disk file. You will now 
learn to create a data file. A data file is not a program, but merely a list of information 
that you might want to save and use at a later date. You know how to save data on cas- 
sette tape. Disk data files are not much different. 
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After you turn on your disk system and see the DOS READY prompt, you ac- 
cess disk BASIC to create a data file. 



mg. 



DOS READY 
BASIC- 



-Type BASIC and press ENTER 



The first thing that the computer wants to know is how many files you will be us- 



HOW MANY FILES?- 



1 lie iiuiiioci iiiai you lype in leiis me computer now many oujjers to creaic lO 
handle the disk accesses you will make (the number of READs and 
WRITEs). A buffer is an area of memory where datum waits when it is going 
to and from the disk file. 



Normal 
Comouter 
RAM 



N \/ 



Buffer 
RAM 
Area 



4 1/ y 



Disk 



J 



If you do not give a number (but merely press the ENTER key) the computer 
automatically reserves three buffers. In most cases, you will not use more 
than three buffers. Therefore, you can just press the ENTER key to go on. 



The buffer area is actually 
a part of the computer's RAM. 
However, for a clearer explanation, 
we have shown it separately. 



Disk 




Normal 
Computer 




When you want to access a particular disk file, you must tell the com- 
puter which buffer to use to access the file. You must also tell it what kind of 
access you want (Sequential Output, Sequential Input, or Random I/O). All 



thsa ia /Ion* 



CLOSE. 
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Example: 



The letter O — 
for Sequential 
Output; I for 
Sequential 
Input or; R for 
Random I/O 



IT 



OPEN "0", 1, "PHONE/ TXT ,- (3" 



Only 1 
buffer 
used 




- The commas, 
colon, and quotes 
are important. 



Disk drive 
number 



You need a BASIC program to input the data into the computer's memory and 
to send it to the disk. Here is a short program to do that. Our numbering system may 
seem odd, but the reasons behind it will appear obvious later on. 



Program to Create a New Data File 



1(3 REM * HOUSEKEEPING * 

2(3 CLEAR 5p(3 ^9 — Clear String spacc and 

3p DIM A$(3(3) ,B$(3!3) Dimension arrays 

4(3 CLS 



Input data to 



1(3(3 REM * CREATE A FILE * 

11(3 INPUT "HOW MANY NAMES" ; R 

12(3 FOR N = 1 TO.R 

13(3 INPUT "NAME";A$(N) -a 

14(3 INPUT"PHONE # (XXX-XXXX)" ;B$(N) -* 

15(3 NEXT N memory 

16(3 LINE INPUT "FILE NAME? ( XXXXXXX/TXT : (3 ) " ; D$ 

17(3 PRINT "PRESS 'ENTER'" 

^e^l INPUT "TO SEND TO DISK";C$ 

19p REM * MEMORY TO DISK * 

2p(3 OPEN "o",i, D$ -a — — Open fde 

21(3 PRINT#1 ,R 

22(3 FOR N = 1 TO R 

23p PEiNT#i ,A${N) ;",";B$(N) -a Send data to disk 

24(3 NEXT N 

25(3 CLOSE - — Close the file 

26(3 END 



Note: A new disk BASIC statement is used in line 160. LINE INPUT is a statement 
that will allow a string input that includes commas, quotes, and other punctua- 
tion marks. 
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Also note line 250: 



DO NOT REMOVE A DISK WHICH CONTAINS AN OPEN FILE. 
* CLOSE THE FILE FIRST * 



Before you try the file program, be sure to save it on disk. You may want to use it 
again sometime. Remember the command to save a BASIC program? 

r 

You pressed ENTER 
You pressed ENTER and the 
computer went to BASIC 
Type in the BASIC program 

This saves your BASIC 
Input program on disk 



Suppose that you v/ant to create a data file of names and phone numbers of a 
club, your friends, or some other group. Here is a list of five names and phone numbers 
to be entered. You should start out with a smaii list. You can learn to expand or alter 
the list later. 



Name 


Phone Numbers 


Last, First initial 




AbleB 


555-0101 


Baker D 


555-1010 


Candy K 


55.5-1 1 1 1 


Dunks C 


333-2020 


Dunks D 


333-2020 



Run the program and input the names and phone numbers in response to the input 
prompts. 

( 



READY 
>RUN 

HOW MANY NAMES? 5 " 

NAME7ABLE B -a 

PHONE n {XXX XXXX)?555-!21!31 
NAME?- *8 — 



HOW MANY FILES? 
MEM SIZE? 



>25!3 CLOSE -* 

^26p END 

>SAVE "PHONE/BAS : |3" -=S- 
READY 

>- 



Five names and phone numbers 
First name 

Ready for second name 
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After the last phone number has been typed in, the computer displays the entries: 



ABLE B 555 -!J1j31 

BAKER D 555- 1 (3 1 (3 
CANDY K 555-1111 
DUNKS C 333 - 2(22(3 
DUNKS D 333 - 2(32(3 
FILE NAME? ( XXXXXXX/TXT : (3 )- 



The program is now requesting you to enter the name of the data file. We will call this 
one: 



PHONE/TXT: (3 ^ To Drlve 

t , t 

I 

Name of 
file 



The word PHONE is typed in in place of the X's in the request for file name. This is 
not a BASIC file so we used TXT for the type of file. When you type in the file name it 
is assigned to the variable D$. When you type in the file name and press ENTER, the 
computer then gives another prompt message and waits for you to press a key before 
sending the data to the disk. 

FILE NAME? ( XXXXXXX/TXT : (3 ) PHONE/TXT : p 
PRESS ENTER 1 i 

TO SEND TO DISK?- I 1 — You type this 

Press ENTER and the data will be saved on disk under the file name 
PHONE/TXT:0. 
Then: 

PRESS 'ENTER' 
TO SEND TO DISK 
READY 



The data file is 
saved on the disk 



You will no doubt want to check the disk directory to make sure your original 
BASIC program and the data file are actually on the disk. You must go back to the 
disk operating system to do this. Just type: CMD "S" and then type DIR. 



READY 
>CMD "S"- 



Type and press ENTER 
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FILE DIRECTORY DRIVE |J TRSDOS -(35/28/81 



TEST1/CMD 
TEST2/BAS 
GETTAPE/BAS 

DOS READY 



PHONE/BAS -a— 

HOLES/BAS 

TAPEDISK/CMD 



GETDISK/BAS 

DISKDUMP/BAS 

PHONE/TXT 

, i 

I 

Data file 



BASIC program 
that created 
the data file 



Since both programs are there, you have successfully passed the first test. How- 
ever, at some time your list of names and phone numbers has expanded to nineteen, as 
shown below. 



Name 


Phone number 








AbleB 


555-0101 H 




Baker D 


555-1010 






CCC 1111 




Dunks C 


333-2020 











Evers L 






555-2130 




Fink F 


333-1212 




GcKxl K 


555-3120 




Henry B 


555-2212 




Irving D 


333-1115 




Jones E 


555-7632 




Kane K 


555-7603 




Lemon R 


333-1515 




Marks H 


555-8119 




Noble M 


333-8991 




OttoD 


333-1129 




Pinks C 


555-3210 




RiotC 


555-4567 





















To be added 



You must now make a decision. Should you go back and use the PHONE/BAS 
input program and input the whole list over, or should you write a new program to 
change the data in the data file? Since you only have five names in the data file named 
PHONE/TXT, you might be tempted to just do it all over again. However, your list 

your advantage to write a new program that could add names to the list. 
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First you need a BASIC program to load the data file back into the computer. 
Remember the original input program PHONE/BAS opened a file for output. Since 
you want to input data from the disk, you must open the file for Sequential Input. 

OPEN "PHONE/TXT :p" 

1 [_ 

' That's the file 

Open for you ^^ant 

Sequential Input 

Program to Input File from Disk 



Ij? REM * HOUSEKEEPING * 

2!? CLlEAR 5(3(3 

3(3 DIM A$(3(3) ,B$(3(3) 

4(3 CLS 

3p^ REM * INPUT DATA FILE * 

31(3 LINE INPUT "NAME OF FILE?",-D$ 

32(3 OPEN "I", 1 ,DS 

33p INPUT#1 ,R 

34(3 CLS 

35(3 FOR N = 1 TO R 
36(3 INPUT#1 ,A$(N) ,B$(N) 
37(3 PRINT A${N) ,B$(N) 

38(3 NEXT N 

39(3 CLOSE -9 

4(3(3 INPUT "PRESS 'ENTER' TO CONTINUE" ,-0$ 

41(3 END 



Access disk BASIC before entering the program. 



DOS READY 

BASIC 

READY 

>- 



Don't forget the 
CLOSE statement 
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Enter the program and run it. The disk whirrs and merrily clickety-clacks as it finds 
the PHONE/TXT file and loads and prints the old names and telephone numbers. 



ABLE B 
BAKER D 
CANDY K 
DUNKS C 
DUNKS 
READY 



555-p1(31 
555- IjJIjJ 
555- 1111 
333-2|32p 
333-2j32(3 



You need a program that wiii add fourteen more names to the data file. To make it 
more general, you should be able to input where you want to start adding names and 
where you want to stop. You don't want to disturb the five names that are already in 
the file. 

Since you will usually want to input the names and phone numbers that you already 
have, you might as well add this program to the program that inputs the data file. 



5(3(3 REM * ADD RECORDS * 

51(3 INPUT "ADD HOW MANY RECORDS";A 

52p FOR N = R+1 TO R-(-A 



540 INPUT "PHONE # ( XXX - XXXX ) " ; B$ { N ) 

550 NEXT N 

56(3 REM * SEND ALL TO DISK * 

57(3 OPEN '"O" , 1 ,D$ 

580 PRINT#1 ,R-t-A 



590 FOR N = 1 TO R-fA 

600 PRINT#1 ,A$(N) ;",";B$(N)- 

610 NEXTN 

620 CLOSE 

630 END 



Number of new 
names to be added 



Same Jiame will 
erase old file 



New data put in file 
(old names plus new) 



Add lines .500 through 630 to lines 10 through 410 of the Program to Input File from 
Disk. Then SAVE it for the future as PHLOAD/BAS:0 (for PHone LOAD from 



r 



^6.?C! CLOSE 
>630 END 

>SAVE "PHLOAD/BAS : 

READY 

>- 
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You may see a need for some organization as your list of programs to handle this 
data changes. You can now add names and numbers to the list, but pretty soon you 
will want to do additional things with the file. You should plan such things in advance 
and combine the separate programs with a Menu Selection to perform the desired 
results. For example, you might want to do these things: 

1 . Create a new data file. 

2. Input a data file from disk. 

3. Add records to a data file. 

4. Delete records from a data file. 

5. Examine the records in a data file. 

You have worked with the first three things on the list. Now let's combine them 
all into one program with a menu to select the program you want. 

The first item on the list was numbered with lines 100 through 260. The second 
used lines 300 through 400. The third used lines 500 through 630. With some 
planning, we have avoided any line number conflicts. All you have to do is put the five 
programs together and plan a separate Menu Selection section. 

Data File Program 

1p REM * HOUSEKEEPING * 

2(3 CLEAR 5(3p 

3(3 DIM A$(3p) ,B$(3|2) 

40 CLS 

5!3 GOTO sjapp 5000 lists the menu 

1!20 REM * CREATE A FILE * 

lip INPUT "HOW MANY NAMES", -R 

12!2 FOR N = 1 TO R 
13(3 INPUT "NAME";A$(N) 

14(3 INPUT "PHONE # (XXX-XXXX)" :B$(N) 

15p NEXT N 

1613 LINE INPUT "FILE NAME? ( XXXXXXX/TXT : (3 ) " ; D$ 

17!3 PRINT "PRESS 'ENTER"' 

18!3 INPUT "TO SEND TO DISK";CS 

19(3 REM * MEMORY TO DISK * 

2(3(3 OPEN "0"1 ,D$ 

21(3 PRINT #1 ,R 

22(3 FOR N = 1 TO R 

23(3 PRINT #1 , A$ (N) iB/$ (N) 

24(3 NEXT N 

25(3 CLOSE 

26(3 GOTO 5(3(3(3 

~~ ' Go to menu 

3(3p REM * INPUT FILE FROM DISK * 
31(3 LINE INPUT "NAME OF FILE?";D$ 
32(3 OPEN "I" , 1 ,D$ 
33(3 INPUT #1 ,R 
34(3 CLS 

3 5(3 FOR N = 1 TO R 

36(3 INPUT#1 ,A$(N) ,B$(N) 

37(3 PRINT A$(N) ,B$(N) 

38(3 NEXT N 

39(3 CLOSE 

4(3(3 INPUT "PRESS 'ENTER' TO CONTINUE" ;C$ 
41(3 GOTO 5(3(3(3 
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Spp REM * ADD RECORDS * 

51|3 INPUT "ADD HOW MANY RECORDS", -A 

52p FOR N = R+1 TO R+A 

5313 INPUT "NAME";A$(N) 

54p INPUT "PHONE # (XXX-XXXX)" ;B$(N) 

55!? NEXT N 

56(3 REM * SEND ALL TO DISK * 

57p OPEN "0" , 1 ,D$ 

5813 PRINTS 1 ,R+A 

59)3 FOR N = 1 TO R+A 

PRINT#1 ,A${N) ;",";B$(N) 

61(3 NEXT N 

62^J CLOSE 

63(3 GOTO 5!3j3|3 

7!3!3 REM * DELETE RECORDS * 

71p PRINT "NOT IMPLEMENTED YET" 

72(3 FOR X = 1 TO 5!3!3:NEXT X 

73p GOTO 5!3!3!3 

9pB REM * EXAMINE RECORDS * 

91 13 PRINT "NOT IMPLEMENTED YET" 

92|3 FOR X = 1 TO 5!3!3:NEXT X 

93J3 GOTO 5!3|3;3 

1 1 (3(3 REM * END OF PROGRAM 
nip END 



5(3pp REM * MENU SELECTION * 

5 pup CT.R 

5'p2(3 PRINT @86, "PHONE DIRECTORY MENU" 

5p3p PRINT @214,"1. CREATE A NEW FILE'^ 

_>jo4jb ir' i\ i i"! 'i' vji^z/o, 2. i-^^l'Li* lL.iL J '-i^i L-l^^-. 

5p5p PRINT @342,"3. ADD RECORD(S)" 
5p6p PRINT @4p6,"4. DELETE RECORD (S)" 
5p7p PRINT @47p,"5. EXAMINE RECORD(S)" 
SpSp PRINT @534,"6. QUIT" 

5P9P PRINT @662,"TYPE NUMBER OF SELECTION (1-6)"; 

51pp INPUT N: N=INT(N) 

Slip IF N>=1 AND N<=6 THEN 514P 

512p PRINT @79p,"MUST DE A NUMBER 1-6" 

513P PRINT @662,STRING$(4|3," " ) : GOTO 5p9P 

514p ON N GOTO 1 pp , 3pp , 5pp , 7pp , 9pp , 1 1 Pp 

Items 4 and 5 on the menu haven't been \¥ritten yet^ bijt they can now be added 
when ready. Before you do anything else, though, enter the Data File Program and 
SAVE it AS: "DATFILE/BAS:0." 



514p ON N GOTO 1 pp , 3pp , 5pP , 7pp , 9pp , 1 1 pp 
SAVE "DATFILE/BAS:p"- 



The :0 is optional. 

that we are using Drive 0. 
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Now take another look at the directory to see what programs we now have on 
disk. Some of them should be removed since DATFILE/BAS performs the same oper- 
ation. Remember how to access the directory? 



>514!3 ON N GOTO 1 , 3|3p , 5|2j3 , 7|3^ , gpp , 1 1 |3j3 
SAVE "DATFILE/BAS : p" 
READY 
>CMD "S"- 



Then type: DIR 



FILE DIRECTORY 

TESTl/CMD 
TEST2/BAS 
GETTAPE/BAS 
PHLOAD/BAS 

DOS READY 



-DRIVE (3 TRSDOS — (35/28/81 



PHONE/BAS 
HOLES/BAS 
TAPEDISK/CMD 
DATFILE/BAS 



GETDISK/BAS 

DISKDUMP/BAS 

PHONE/TXT 



You won't need these 
anymore. DATFILE/BAS does 
the same thing and will 
do more later. 

To erase the old files that are not needed, go back to Disk BASIC and use the 
KILL command. 



DOS READY 
BASIC 



READY 

>KILL "PHONE/BAS" • 
READY 

>KILL "PHLOAD/BAS" 

READY 

>- 



Type: BASIC and press ENTER 

Type: KILL "PHONE/BAS" and 
press ENTER 

Type: KILL "PHLOAD/BAS" and 
press ENTER 



Take one more look at the directory to see if everything is as planned. 

Type: CMD "S" and press ENTER 



READY 
>CMD "S"- 
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a 

a 

DOS READY 

DiR- «a Type: DIR and press ENTER 

FILE DIRECTORY DRIVE p TRSDOS — (35/28/81 

TEST1/CMD GETDISK/BAS DATFILE/BAS -* . 

TEST2/BAS HOLES/HAS DISKDUMP/BAS 
GETDISK/BAS TAPEDISK/BAS PHONE/TXT -« 

DOS READY 

Your two 
programs; 
RA5?1C and data 



You now have a program, DATFILE/BAS, that can be used to 1) create a new 
disk data file, 2) load an existing data file, and 3) add records to an existing data file. 
Two other operations still to be written are 4) delete records from an existing data file, 
and 5) examine all or part of an existing data file. Y ou have space (lines 700 through 
1000) for these sections to be added. Here is the section to delete records. 



Program Section to Delete 



7pp REM * DELETE RECORDS * 
71p A=|3: B=|3 

7 2p INPUT "NAME TO BE DELETED", -N^ 

73p FOR N = 1 TO R -« 

74|3 IF A$(N)=N$ THEN A=N : GOTO 2^ 

75P NEXT N <=S 

76!3 IF A=0 PRINT "NAME NOT FOI'ND" 
77p INPUT "DELETE ANOTHER NAME":E$ 
78(3 IF LEFT$(E$ , 1 )="Y" GOTO 72(2^^ — 

79(3 IF B=!3 GOTO Sppp -4 

8|3p OPEN "0" , 1 ,D$ 

81(3 PRINT#1 .R-B 

82p FOR N= 1 TO R-B 



g3pr pRiNT#l . Aff^N) ;B$(N) 
B4p NEXT N 
850 CLOSE 
86P GOTO 5!3!3!3 



2!3!3p REM * DELETE & 

2p1!3 FOR X = A TO R' 
2(32)3 A$(X)=A$(X+1 
2(33(3 B$(X)=B$(X+1 

2(34p NEXT X 

2(35(3 A$(R-B+1 )= 



MOVE 
-B-1 



ALL UP ONE * 



2(38p RETURN 



R is the number of 
names on the file 

Search list for name 
to be deleted 

Test for another 

If no deletions, there is no 

need to save file 
Save new file under 

same name 

Back to menu 



Move names up one, 
erasing desired name 
and phone number 

Blank out last name 



V.-UUIR IIUIUUCI Ul 

deletions 
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SAVE THE NEW VERSION ON DISK AS DATFILE/BAS 



Use of the New Section 



Suppose we had a data file named TSTPH/TXT:0 on a disk and we had just input it 
from section 2 of DATFILE/BAS. The list is displayed. 



ABLE B 
BAKER D 
CANDY K 
DUNKS C 
DUNKS D 



555- IpljJ 
555-1 1 1 1 
333-2p^2p 
333-2(32p 



PRESS 'ENTER' TO CONTINUE?- 



This is the 

file called TSTPH/TXT:0 



When you press ENTER, the menu is displayed. 



PHONE DIRECTORY MENU 

1 . CREATE A NEW FILE 

2. INPUT FILE FROM DISK ^ YoU juSt USCd this 

3. ADD RECORD(S) 

4. DELETE RECofeD ( s ) M This is next 

5. EXAMINE RECORD(S) 

6. QUIT 



TYPE NUMBER OF SELECTION (1-6)?- 
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Suppose you wish to delete the names BAKER D and CANDY K. Type in the 
number 4 and press the return key. 



TYPE NUMBER OF SELECTION ( 1 - 6 )? 4 
NAME TO BE DELETED?- ^ — '- 



Type BAKER D 

Exactly like 
it is in file 

When the program finds BAKER A at line 740: N=2, A is set to 2, R=5, and 
B=0. Since A$(2) = N$ at line 740, the subroutine is entered. 



r 



During the execution of the FOR-NEXT loop: 
FOR X = 2 TO 4 



When X= A$(2)=A$(3) 
B$(2)=B$(3) 

WhenX=3 A$(3)=A$(4) 

When X=4 A$(4)=A$(5) 
B$(4)=B$(5) 

Now out of FOR-NEXT loop 

A$(.5)=" " 
B$(5)=" " 

B=B4-i 



A$(1)=ABLEB 

A$(2) becomes CANDY K 

B$(2) becomes 555-1 111 

A$(3) becomes DUNKS C 
B$f4) becomes 333-2020 

A$(4) becomes DUNKS D 
B$(5) becomes 333-2020 



AS(5) blanked out 
B$(5) blanked out 



(one change made) 



IIIC plUglctlll IClUlllS lO llllt, I.J\J. Ill 



770 ^. 



posed. 



NAME TO BE DELETED? BAKER D 
NAME TO BE DELETED?- -O 



Type CANDY K 
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When the name, CANDY K, is found (now in A$(2)) at line 740; N=2, A is set 
to 2, R=5, and B=l . The subroutine: 



POP Y — T Tr» 1 

w nen a — z /\i\z ) — Aj>(^ j ) 
B$(2)=B$(3) 


A$(l)is still ABLEB 

AS(2) becomes DUNKS C 

B$(2) becomes 333-2020 


When Y — AiCX\ — A<ii(A\ 

B$(3)=B$(4) - 


B- A3(( J ) becomes DUNKS D 

^ B$(3) becomes 333-2020 


Now out of FOR-NFYT Innn 




A$(4)="" - 
B$(4)="" - 


A$(4) blanked out 
B$(4) blanked out 


B=B+1 


^ B is increased to 2 

(two changes made) 



Once again a request is made to see if you want to delete another name. You an- 
swer NO and the program goes on to line 800 where the file is opened, the number of 
records is set to R-B (now 3), and the file is saved under the same name: TSTPH/ 
TXT:0. The file is then closed and return is made to the menu. 


PHONE DIRECTORY MENU 

1 . CREATE A NEW FILE 

2. INPUT FILE FROM DISK 

3. ADD RECORD(S) 

4. DELETE RECORD ( S ) 

5. EXAMINE RECORD(S) 

6. QUIT 

TYPE NUMBER OF SELECTION (1-6)?- 

You might want to look at the altered file to make sure that the change was 
made correctly. If you do, type: 2 and press ENTER. 



NAME OF FiLE?TSTPH/TXT:|2 -s Type file name, prcss 

ENTER 



ABLE B 555-!31!31 

DUNKS c 33 3 - 2R2P ^ Baker and Candy have 

DUNKS D 333 - 2(320 u j j ii 

PRESS 'ENTER' TO CONTINUE?- been rcmovcd and all 

others moved up 
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Examine Records Section 



One last section of the program remains. Suppose you would like to examine a data file 
by one of three different ways. 

1 . By selecting the left part of a person's last name. For example, C, CA, 
CAN, etc. would select CANDY K and D, or DU, DUN, etc. would se- 
lect DUNKS C and DUNKS D. 

2. By selecting a range of last names. For example, A to C would select 

ABJLJtl J5, BAJVCK. U, aUU V./^lNJb» I iv itiiu ix lu wuum suivvt ivivy * v. 

and SA.MPLE F. A to Z would select the complete file. 

3. By selecting the phone prefix (first three digits). For example, 333 would 
select all those records with a 333 phone prefix and 555 would select all 
those records with a 555 phone prefix. 

We'll show you one way to do it. You may be able to improve this section or add 
other ways to select records. 

9013 REM * EXAMINE RECORDS * 

91 13 CLS: PRINT "YOU MAY SEARCH FOR:" 

92p PRINT TAB(3)"1.ANY PART OF LAST NAME-FROM LEFT" 

93j3 PRINT TAB(3)"2.NAMES STARTING WITHIN A GIVEN RANGE" 

94)3 PRINT TAB(3)"3.BY FIRST 3 DIGITS OF PHONE #": PRINT 

95(3 PRINT "TYPE THE NUMBER OF YOUR SELECTION (1-3)" 

ybj^ AS = lwi\.iiii $ ■• It A$— GOTO SCp 

9713 IF VAL(A$) <1 OR VAL(A$) >3 GOTO 951? 

98C) ON VAL(A$) GOTO 2 1 00 , 2 2(30 , 2 30(3 

990 INPUT "WANT TO SEARCH SOME MORE" ; M? 

1 (300 IF LEFT$(M$ , 1 )="Y" GOTO 910 
1010 GOTO 5000 

2 100 REM * SEARCH FOR LAST NAME * 

2 110 CLS: INPUT "LEFT LETTER(S) OF NAME "'.FS 
2 120 L=LEN(F$) : A=0 
2 130 FOR N = 1 TO R 

2140 IF LEFT$(A${N) ,L)=F$ PRINT A$ ( N ), B$ { N ) : A=A+ 1 
2 150 NEXT N 

2 160 IF A=0 PRINT "NONE FOUND" 
2 170 GOTO 990 

2 200 REM * SEARCH FOR RANGE * 

2210 CLS: INPUT "STARTING LETTER OF RANGE ";F$ 
2220 INPUT "ENDING LETTER OF RANGE" ;G$:A=0 
2 230 FOR N = 1 TO R 

2240 IF LEFT$(A$(N) , 1 )>=F$ AND LEFT$(A$(N) , 1 ) <=G$ PRINT 

A$<N) ,3$(K) :A=A+1 
2250 NEXT N 

2 260 IP A=p PRINT "NONE FOUND" 
2270 GOTO 990 

2 300 REM * SEARCH FOR PHONE PREFIX * 

2310 CLS: INPUT"FIRST 3 DIGITS OF PHONE #";P$:A=0 
2320 FOR N = 1 TO R 

2330 IF LEFT$(B${N) ,3)=P$ PRINT A$ ( N ), BS ( N ) : A=A+ 1 
2 34 NEXT N 

2350 IF A=0 PRINT "NONE FOUND 
2360 GOTO 990 
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Input this section and SAVE on your disk the completed program 
DATFILE/BAS. You are now ready to use the complete directory. 

Using the Completed DATFILE Program 

Of course you must first access Disk BASIC and LOAD DATFILE/BAS before you 
can use it. After completing the housekeeping chores (lines 10 through 40), the menu 
is displayed. 



PHONE DIRECTORY MENU 



1 . CREATE A NEW FILE 

2. INPUT FILE FROM DISK 

3. ADD RECORD(S) 

4. DELETE RECORD (S) 

5. EXAMINE RECORD(S) 

6. QUIT 

TYPE NUMBER OF SELECTION (1-6)?- 



You may create a new phone file by choosing selection 1 . Any number of 

files may be created as long as each is given a distinct name. 

You may select any previously created file by choosing selection 2. Of 

course, the file must be on the disk that you are using. 

You may add records to an existing file (choice 3 from the menu) but 

again, you must first input that file from the disk (choice 2). This two-part 

selection is necessary because any operation performed on an existing file 

is done in the computer's memory. After the records have been added, the 

altered file must be saved on disk. 



MAKE 
ADDITIONS 




Then save on disk 
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" You may delete records (choice 4), but again you must input the file to be 
altered (choice 2) from the disk. Then make the deletions and SAVE the 
altered file. 

« You may examine records (choice 5). The file to be examined must also be 
input from the disk (choice 2) before it may be examined. 

" Leaving the program is easy. Just type 6 when the menu is displayed. 
However, as a precaution, you should be sure that all files have been 
closed before removing a disk from the disk drive. When the computer 
says: 



READY 
>- 

Type: CLOSE and press ENTER. 



The CLOSE command will CLOSE all files that have been in use. CLOSE 
all files before removing your disk from the disk drives. Then you may turn 
the computer off. 



Try out selection .5 from the menu to see how it works. 

1 . Make sure DATFILE/BAS has been loaded. 

2. RunDATFILEtogetthemenu. 

3 . LOAD PHONE/TXT; your data file. 

4. Examine: 

a) records starting with: 

1) AB 

2) DU 

3) FI 

4) COB 

b) records whose names range from: 

2) A— H 

3) i-Z 

4) D-A 

c) records whose phone prefixes are: 

1) .555 

2) 333 
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Here are the results of our check of section 5: 
1. LoadDATFILE 



HOW MANY FILES? 
MEMORY SIZE? 

RADIO SHACK DISK BASIC VERSION 2.2 
READY 

>LOAD "DATFILE/BAS" -fl LOAD it 



2. Run DATFILE/BAS 



HOW MANY FILES? 



>LOAD "DATFILE/BAS' 
READY 

>RUN 



3. Load PHONE/TXT 



Run it 



PHONE DIRECTORY MENU 

1 . CREATE A NEW FILE 

2. INPUT FILE FROM DISK 

3. ADD RECORD{S) 

4. DELETE RECORD ( S ) 

5. EXAMINE RECORD(S) 

6. QUIT 

TYPE NUMBER OF SELECTION (l-6)?2 
NAME OF FILE?PHONE/TXT __i 



■ You type 



Computer 
You 



lists names and phone numbers 
press ENTER 



Computer > prints directory again 

4. Examine records 

Type 5 in answer to the selection number. 



TYPE NUMBER OF SELECTION (1-6)?5 
YOU MAY SEARCH FOR: 

1. ANY PART OF LAST NAME -FROM THE LEFT 

2. NAMES STARTING WITHIN A GIVEN RANGE 

3. BY FIRST 3 DIGITS OF PHONE # 

TYPE THE NUMBER OF YOUR SELECTION ( 1 -3 )? 1 



for check 4a) 
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4al) 



LEFT LETTERS OF NAME7AB 

ABLE B 555-plpl ^ 

WANT TO SEARCH SOME M0RE7YES 
YOU MAY SEARCH FOR: 

1. ANY PART OF LAST NAME -FROM THE 

2. NAMES STARTING WITHIN 

3. BY FIRST 3 DIGITS OF 



LEFT 

A GIVEN RANGE 
PHONE # 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?1 



One name beginning 
with AB 



LEFT LETTERS OF NAME7DU 

DUNKS C 333-2!32|3 , 

DUNKS 333-2(32p 

WANT TO SEARCH SOME MORE?YES 



Two names beginning 
with DU 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?1 



4a3) 



LEFT LETTERS OF NAME?FI 

FINK F 333-1212 -a 

WANT TO SEARCH SOME MORE?YES 



One name beginning 
with FI 



4a4; / 



LEFT LETTERS OF NAME7C0B 

NONE FOUND -a — 

WANT TO SEARCH SOME M0RE7YES 
YOU MAY SEARCH FOR: 

1. ANY PART OF LAST NAME -FROM THE LEFT 

2. NAMES STARTING WITHIN A GIVEN RANGE 

3. BY FIRST 3 DIGITS OF PHONE # 



No names beginning 
with COB 



4b) 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?2 



Go on to next 
selection 



4bl) 



STARTING LETTER OF RANGE7C ^ 

ENDING LETTER OF RANGE7G 

CANDY K 555- 1111 

DUNKS C 333-2p2|3 

DUNKS D 333-2p2|3 

EVERS L 555-2 ijjj 

FINK F 333-1212 

GOOD K 555-3 1 2)3 

WANT TO SEARCH SOME M0RE7YES 



From C through G 



roH (■ 1 - T ^ "J 7 
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4b2) 



r 



STARTING LETTER OF RANGE7A 
ENDING LETTER OF RANGE7H 



From A through H 



ABLE B 


555- 




BAKER D 


555- 


1j3ip 


CANDY K 


555- 


1111 


DUNKS C 


333- 




DUNKS D 


333- 




EVERS L 


555- 


213p 


FINK F 


33 3- 


1212 


GOOD K 


555- 


312p 


HENRY B 


555- 


2212 


WANT TO 


SEARCH 


SOME 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?2 



SAMPLE F 333-7654 

WANT TO SEARCH SOME M0RE7YES 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?2 



4b3) 



r 



STARTING LETTER OF RANGE?I 
ENDING LETTER OF RANGE7Z 



From I through Z 



IRVING D 333 - 1 1 1 5 

JONES E 555-7632 

KANE K 555-76p3 

LEMON R 333-1515 

MARKS H 555-8119 

NOBLE M 333-8991 

OTTO D 333- 1 129 

PINKS C 555-321P 

RIOT C 555-4567 



4b4) 



r 



STARTING LETTER OF RANGE7D - 
ENDING LETTER OF RANGE7A 

NONE FOUND — — 

WANT TO SEARCH SOME MORE?YES 




Can you search 
backward? 



4c) 



TYPE THE NUMBER OF YOUR SELECTION {1-3)?3 NcXt type 

of selection. 
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4cl) 



FIRST 3 
ABLE B 
BAKER D 
CANDY K 
EVERS L 
GOOD K 
HENRY B 
JONES E 
KANE K 
MARKS H 
PINKS C 
RIOT C 
WANT TO 



DIGITS OF PHONE #?555 

555-p1)31 

555-l!31p 

555-1 1 1 1 

555-21 3(3 

555-31213 

555-2212 

555-7632 

555-76!33 

555-81 19 

555-3^ 1)2 

555-4567 
SEARCH SOME M0RE7YES 



All names whose 
phone prefix is 555 



TYPE THE NUMBER OF YOUR SELECTION (1-3)?3 



FIRST 3 DIGITS OF PHONE#?333 

DUNKS C 333-2!32j2 

DUNKS D 333-2!32!3 

FINK F 333-1212 

IRVING 333-1115 

LEMON P 3 3 3-15 15 

NOBLE M 333-8991 

SAMPLE F 333-7654 

WANT TO SEARCH SOME H0RE7YES 



TYPE THE NUMBER OF YOUR SELECTION (1-3)73 



All names whose phones 

begin with 333 



4c3) 



FIRST 3 DIGITS OF PH0NE#?444 
NONE FOUND 

WANT TO SEARCH SOME M0RE7N0 



■ Any with a 444 prefix? 

NO 

All done 



The computer goes back to the menu. 



PHONE DIRECTORY MENU 

1 . CREATE A NEW FILE 

2. INPUT FILE FROM DISK 

3. ADD RECORD(S) 

4. DELETE RECORD(S) 

5. EXAMINE RECORD(S) 

6. QUIT 

TYPE NUMBER OF SF.LECTION ( 1 -6 ) 76 ^ Lct's quit 

READY li 
> CLOSE ^- — — 

READY closed 
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Summary 

A program was developed in this chapter to demonstrate the use of a disk data file us- 
ing names and telephone numbers. It can serve as a model, or as a starting p.oint, for 
you to create disk files of your own. The program was broken into the following func- 
tional modules that were selectable from the keyboard. 

a) create a new file from the keyboard, 

b) input a previously created file from disk, 

c) add one or more records to the file, 

d) delete one or more records from the file, and 

e) examine one or more records in the file. 



You also learned: 
• to OPEN a file. 



OPEN "O" , 1 , "PHONE/TXT : (2" 

A sequential One File Disk Drive 

output file buffer name number 

used 



If no disk Drive number is specified. Drive zero (0) will be used. 

• to CLOSE a file, 

CLOSE ^9 — closes all files that have 

been opened 

CLOSE 1 -a- closes the file assigned to 

buffer #1 

CLOSE 1,2,8 -4 closes files assigned to 

buffers #1,2, and 8 



• all open files should be CLOSEd before removing a disk from the disk drive, 

• to use the DATA FILE program to: 

a) create a disk data file consisting of names and phone numbers and to save 
it on disk, 

b) input a previously created file from disk to the coniputer's memory, 

c) add one or more records to the file, 

d) delete a record from the file and move all records following it up one 
position, 

e) examine one or more records by: 

1 . last name or the left part of the last name 

2. all last names starting within a specified range 

3. telephone prefix 
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■» PRINT #1 is used to transfer data from the computer's memory to disk, 
o INPUT #1 is used to transfer data from a disk file to the computer's memory, and 
" LINE INPUT is used to input strings containing commas, quotes, and other punc- 
tuation marks. 

Self-Test 

1 . Use the completed DATFILE/BAS program to create a file from the keyboard 
containing the following names and phone numbers. 



CABLE A 


353-1111 


FORCE S 


535-8055 


GROSS B 


353-7546 


KING E 


556-3294 


MORE L 







Save the file on disk as MYLIST/TXT. 
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2. Use DATFILE/BAS to input the data list saved in exercise 1 . Copy what you see 
on the screen after the file is input. 



Then make the following changes: 

Delete: KING E 
CABLE A 



Add: 



SOZO W 
PARKS C 
WIZARD Z 



335-7876 
335-0132 
353-2109 
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3. Use DATFILE/BAS to input the modified file of exercise 2. Examine the file 
and list the resulting names and phone numbers. 



Name 


Phone 


i 


1 



4. Use the existing DATFILE/ B AS program to arrange the names in alphabetical 
order. DO NOT USE THE CREATE- A-NEW-FILE SECTION. 



5. Input the new MYLIST/TXT file and copy the file here. 
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6. Eliminate "MYLIST/TXT" from your disk and create a personal phone file for 
your own use. 

Answers to Self-Test 

1 . Access Disk BASIC; load and run "DATFILE/BAS"; select #1 from the menu 
and enter the five names and phone numbers. Save as MYLIST/TXT. 

2. Select menu selection #2. 

NAME OF FILE?- MYLIST/TXT 



CABLE A 


353-1 1 1 1 


FORCE S 


535-8(355 


GROSS B 


353-7546 


KING E 


556-3294 


MORE L 


636-4288 


PRESS 'ENTER' TO CONTINUE?- 



Select #4 and delete KING E and CABLE A. 
Select #2 and input the modified file. You see: 

FORCE S 535-8(355 
GROSS B 353-7546 
MORE L 636-4288 



Select #3 and add SOZO, PARKS, and WIZARD. 
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3. Select #2 from the menu. 



FORCE S 535-8p55 

GROSS B 353-7546 

MORE L 636-7546 

SOZO W 335-9876 

PARKS C 335-P132 

WIZARD Z 353-21(39 



4. Select #4 and delete PARKS, SOZO, and WIZARD. 
Select #2 and read back. 



FORCE S 
GROSS B 
MORE L 



535-8(355 
353-7546 
636-428S 



Select #3 and add in order-PARKS, SOZO, and WIZARD. 



5. Select #2 from the menu. 



NAME OF FILE?- 



MYLIST /TXT 



FORCE S 535-8(355 

GROSS B 353-7546 

MORE L 636-4288 

PARKS C 335-13132 

SOZO W 335-9876 

WIZARD Z 353-2 1(39 



6. Select #6. 



I READY ^ 



Then work on your own personal file. 



CHAPTER EIGHT 

Tuning Up Your Computer 



You already know how to put graphics on the video display to add action to your 
BASIC programs. Wouldn't it be nice to add sound to your programs to really liven 
things up? In this chapter you will learn: 

• how to connect your computer to an inexpensive speaker /amplifier to produce 
sounds, 

• that the cassette connections of your computer can be used to feed signals to the 
speaker/amplifier, 

• how to control pulses to the speaker/amplifier with the OUT 255,2 statement to 
turn on a pulse and the OUT 255,0 statement to turn off a pulse, 

• how electrical pulses are converted to sound waves, 

• how to use a machine language subroutine from your BASIC program to produce 
sounds, 

• how to save memory space for the machine language subroutine by setting 
MEMORY SIZE?, 

• how to access the machine language subroutine with the basic statement: 
X = USR(O), and 

• how the Radio Shack program, MICRO MUSIC, is used. 

Graphics, discussed in chapter 3, bring live action to the computer's video 
screen. The generation of sound to accompany your programs adds another dimension 
to your computer. 

You can develop your own hardware interface and software driver to produce 
sound. You can also buy commercially available hardware and software if you wish. 
However, a combination of these two possibilities is more fun. The necessary equip- 
ment is easy to obtain and use. 
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You have probably used the TRS-80 cassette recorder to CSAVE and CLOAD 
programs. If you read the earlier chapters of this book on cassette files (and we hope 
you have tried all demonstration programs and exercises), you know that the cassette 
recorder can save and retrieve data files. Let's consider how the computer saves infor- 
mation on tape. Data is sent from the computer as a series of electrical pulses to an 
Output port. The output port is connected by means of a gray cable to the AUX jack of 
the recorder. 




To AUX jack 
of recorder 



^VL — OrHj-nj — — a/i/bnr— 

Ordinarily, these pulses are recorded on the magnetic tape of the cassette so that they 
can be Cl-OADed back into the computer at a later time. 

If you disconnect the cassette cable (the black one) that connects the computer 
and the EAR jack of the recorder and play a tape recording that has been CSAVEd, 
you will discover that you can hear the recorded pulses. Thus, if you couiu coniroi the 
pulses sent out by the computer, you might be able to produce sounds of your own. If 
you want to immediately hear the sounds that you produce, you pan send the pulses to 
an amplifier/speaker combination instead of to the recorder. Radio Shack stores sell a 
combination speaker/amplifier unit for only $11. 9.5. 




If you connect the gray cable (which ordinarily goes to the AUX jack of the recorder) 
to the input jack of the speaker/amplifier, you will have a sound system that is suffi- 
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TRS-80 
keyboard 
unit 




Output port 



Volume 
control 

Input jack 



External 
speaker 
connector 



The pulses from the computer are amplified so that they can drive (make the 
speaker vibrate) the speaker hard enough to produce sound waves. 



Speaker 



TRS-80 



— Vli Wlr-j Amplifier 

Pulses 




Amplified 
pulses 



Sound 
waves 



You now have a hardware system that can produce sounds. You must find a way 
(a program) to create the electrical pulses. 

The cassette's output port (the place where the three cassette cables leave the 
computer) has been assigned a number (255) that the computer knows. A signal is 
sent to the cassette's output port by sending the number 2 to the port. The signal is 
turned off by sending a zero (0) to the cassette port. 

OUT 2 5 5,2 

/ I Turns on a signal 
Output To port 255 A 2 

OUT 255, !2 

^^^'^^^ / \ Turns off the signal 
Output To port 255 A zero 



A combination of these two statements will create the following pulse: 



Turn on your computer, hook up the speaker/amplifier as shown on page 213, 
and enter this BASIC program. 

Sound Generator 

1 10 FOR X = 1 TO 

12? OUT 255,2 ^ ^- Pulse 

13(3 OUT 255 ,(3 1 ruisc 

140 FOR z = 1 TO 20: NEXT z -a Time delay 

150 NEXT X 
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Run the program and you will hear the result of fifty pulses created by the FOR- 
NEXT loop (X as variable). A time delay controls the frequency of the sound. The 
longer the delay (FOR Z = 1 TO ?), the lower the frequency will be. By changing line 
140, the frequency will be changed. 

FOR Z= 1 TO 1 0: NEXT Z FOR Z = 1 TO 20: NEXT Z 

TT.^t. P T 

The outside FOR-NEXT loop (variable X) creates the duration of the sound. The 
higher its upper value, the longer the sound is heard. 

FORX = lTO10 F0RX=1T03 

Long duration Short duration 

To demonstrate the possibilities for changing the frequency of the sound, change 
line 140 to: 

14(3 FOR Z = 1 TO F: NEXT Z 

The frequency can then be varied by adding a FOR-NEXT loop (lines 1 00 and 1 60) . 

Ipp FOR F = 19 TO 1 STEP -2 
16p NEXT F 

List the program. It should now look like this: 

Sound Generator 



LIST 



FOR F = 1 S TO 1 STEP —2 
np FOR X = 1 TO 5p 



OUT 255,!? 
14!3 FOR Z = 1 TO F: 

15!3 NEXT X 

160 NEXT F 



NEXT Z 



Duration 
50 



Frequency 

17,15,13,11, 
9,7,5,3,1 



Delay between pulses 
coRtFOsiec! sy •rcQUsnc 
values 
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Run the program and you will hear the note rise in tone as the frequency value 
(F) goes down from 19 to 1. Although a change in tone can be detected, the results are 
not very satisfactory. 

The time necessary to interpret the BASIC statements is too long for the crea- 
tion of realistic sounds. The speaker must vibrate faster than the BASIC statements 
are executed. To get the necessary speed, we will have to write a subroutine in the 
computer's own language so that it doesn't have to take time translating what we want 
done. You can switch from a BASIC language program to a machine language sub- 
routine by using a new BASIC function (USR). 



The user function is our link between our BASIC program and the machine language 
subroutine that will produce the sounds. We will use the BASIC program to POKE 
the machine language subroutine into memory. To access the machine language sub- 
routine, we'll use the statement: 



When the computer executes the USR statement, it immediately looks into memory 
locations 16526 and 16527 to see where the machine language subroutine can be 
found (the memory location where it begins). 



The User Function 



X = USR(p) 



BASIC Program 



POKE in machine language 
program 



Machine language subroutine 



POKE in starting address 
of machine language 
program 




X = USR(0) 



END 
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Saving Memory for the Machine Language Subroutine 

Remember the first message that appears on the video screen when the computer is 
turned on? 



MEMORY SIZE? 



Now is your chance to answer with a number instead of merely pressing the ENTER 
key. In order to know what number to enter at this point, refer to the memory maps 
that follow. 

The first map shows the area (shaded) that may be used by you for your pro- 
grams. Let's stay within the restrictions of a 4K TRS-80 (memory locations 17129 
through 20479). In that way our program will be machine-independent (it won't mat- 
ter whether you are using a 4K, 16K, 32K, etc.). 



Memory 
location 



Memory Map by Machine Size 



4K 



16K 



32K 



48K 



00000 



Level 11 

BASIC ROM 



— 17129 



- 20479 - — 



12288 - 



USER 
RAM 



- 491.51 - 



1— 65.53.5 -I 



Reserved RAM 
for TRS-80 



USER 
RAM 



RAM 



RAM 



TUNING UP YOUR COMPUTER 163 



In the following memory map, the user space for a 4K TRS-80 is shown. 



17129 



Program Text 


1 


Simple variables 


1 


Arrays 


1 


Free Space 


Stack 


T 


String Space 


T 



20479 



Space optionally reserved | 
for machine language 
routines accessed from 
BASIC 



If you want a 
machine language 
subroutine, this 
number is 
specified for 
MEMORY SIZE? 

Our machine language 
subroutine goes here 



When you press the ENTER key without specifying a number for MEMORY 
SIZE, the optional space at the top of memory is not reserved. String space would be 
used from 20479 downward. 



17129 



20479 



Program Text 


1 


Simple variables 


i 


Arrays 


1 


Free space 


Stack 


T 


String space 


T 
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If you do specify a memory address following the MEMOR Y SIZE prompt, 
space will be reserved for a machine language subroutine. 

Example: 



r 

MEMORY 


SIZE?2!3ppp 




17129—*- 


Program text 


1 




Simple variables 


1 




Arrays 


I 




Free space 




Stack 


I 


20000 — ^ 


String space 


I 


20001 — ^ 
20479 — ^ 


Our machine language 
subroutine goes here 


i 



Memory locations 20001 through 20479 will be reserved for a machine language 
subroutme and the string space will be allocated from 2U00U downward. The memory 
location specified at MEMORY SIZE time is one less than the location where your 
machine language subroutine will begin. 

For a 1 6K machine, the only difference would be the upper memory boundary 
(32767 instead of 20479). However, if you are using a 16K machine, you will probably 
want to set MEMORY SIZE to a higher location (such as 32000). Every location 
above the MEMORY SIZE response is saved for machine language. 



For a 1 6K TRS-80 the memory map looks like this: 



17129— s> 
MEMSIZE ^ 


Program text | 


Simple variables I 


Arrays | 


Free space 


Stack T 


String space | 


MEMSIZE + 1 — »- 

32767 


Your machine language [ 

SUUIUUlllIC gucs IICIC 
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Now let's see how you can produce some sounds by storing a machine language 
subroutine in the reserved space. 

The BASIC Program 

The first section of the program clears the screen so that there will be no distractions 
when the sounds are produced. It then calls a subroutine which POKEs (see chapter 2 
for a description of the POKE statement) the machine language program into 
memory. 

Sound Producing Program 
Section 1 

^^^^^ rem ** clear screen - poke machine language ** 
1 ^^l CLS: GOSUB ip!?!^ 

The second section plays eight notes of a musical scale by means of the machine 
language subroutine, which is called by the USR function at line 240. The frequency 
of the notes is read from a data list and POKEd into the subroutine to replace the note 
previously played. 

Section 2 

2(J)2I REM ** CHANGE NOTE AND PLAY ** 

21(3 R=255: POKE 2(3(3(32, R: L=(3 : POKE 2(3^(34, L 

22(3 FOR Y = 1 TO 8 

23(3 READ F: POKE 2p(32(3,F 

24(3 X=USR((3) 

25(3 FOR W = 1 TO 1(3(3: NEXT W 
26(3 NEXT Y 
27(3 END 

The third section contains the data for the machine language subroutine in lines 
310 and 320. These values are the decimal equivalents of the machine language in- 
struction codes. Remember they are actually put into memory in binary format. The 
data for the frequency of the notes is contained in line 330. 

Section 3 

3(3(3 REM ** SUBROUTINE AND FREQUENCY VALUES ** 
31(3 DATA 14,16,33,(3,1,58,61,64,23(3,253,198,2,21 1,255,214 
32(3 DATA 2,21 1,255,6,16(3,16,254,43,124,181,32,239,2(31 
33(3 DATA 85,8(3 , 75 ,7(3,65 ,6(3 , 55 , 5(3 

All that is left is the subroutine that is called from Section 1 to read in the data 
values given in Section 3. 
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POKE Subroutine 

IppS? REM ** DATA READING SUBROUTINE ** 

Ij^ip POKE 16527,78: POKE 16526,33 

1p2!3 FOR X = 2(3^p1 TO \(l^2a 

Ij33j3 READ D 

lj34p POKE X,D 

105!2 NEXT X 

1(36!3 RETURN 

Now you're ready to enter the program. Turn off your TRS-80 if it is on. Wait a 
few seconds, then turn it back on again. When it prompts you with: 

MEMORY SIZE?- 

answer by typing in the value 20000. 

MEMORY SIZE? 2!3!Jp0 

RADIO SHACK LEVEL II BASIC 

READY 

>- 

Enter the program. However, before you RUN it, make sure that the DATA val- 

real disaster, even if only one item is wrong. Line 330 is just the data for the notes and 
is not as critical as the other two data lines. 

Once you have double checked the data statements, RUN the program, and the 
scale is played. Be sure the speaker/amplifier is connected, turned on, and the volume 
control turned up high enough to hear the notes. 




By experimenting with different values for the variables R, L, and F in the 
some appropriate sounds you can incorporate them into other BASIC programs. 
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Adding Sound To Your Programs 

After experimenting with the notes and noises that can be produced with your new 
sound system, we have come up with some samples to go with our demonstration pro- 
grams. 

For the first demonstration, we'll use the program from chapter 3 that painted 
the screen white and punched black holes in it. We have added the sound of a bullet 
"puncturing" the screen. Here is the program with the sound modifications. 

Target Practice Program 



Ijap REM ** POKE SOUND ** 

1 1!2 CLS; GOSUB 

2130 REM ** PAINT THE SCREEN ** 

21p CLS 

22(3 FOR S = p TO ^^222 
23(3 PRINT @S,CHR$( 191 ) ; 

24(3 NEXT S 

3(3(3 REM ** FIRE 1(3(3 SHOTS ** 

31(3 FOR W = 1 TO 1(3(3 

32(3 S=RND( 1(323 )-1 : PRINT @S , CHR$ ( 1 28 ) : 
3 3(3 X=USR((3) 

34(3 FOR Z = 1 TO 15(3: NEXT Z 

35(3 NEXT W 

4(3(3 REM ** DO IT AGAIN ** 

41(3 PRINT @9(3(3, "PRESS 'ENTER' TO CONTINUE": INPUT a'S 

42(3 GOTO 21(3 

1(3(3(3 REM ** POKE SOUND SUBROUTINE ** 

1(31(3 POKE 16527,125: POKE 16526,1 

1(32(3 FOR Y = 32(3(31 TO 32(33(3 
1(33(3 READ D: POKE Y,D 

1(34)3 NEXT Y 

1(35(3 RETURN 

1(36(3 DATA 1 4 , 1 , 6 , 8)3 , 58 , 6 1 , 64 , 23(3 , 2 5 3 , 1 98 , 2 , 2 1 1 , 255 , 2 1 4 , 2 , 2 1 1 

1)37(3 DATA 255 , 1 97 , 1 6 , 254 , 1 93 , 1 6 , 242 , 1 3 , 1 2 1 , 246 , (3 , 3 2 , 2 34 , 2p 1 

To run this program, the MEMORY SIZE? prompt must be set to 32000 when 
the TRS-80 is turned on. Imagine that you have a gun with a rectangular barrel that 




shoots rectangular shaped bullets. RUN the program and the gun shoots rectangular 
holes through the white screen with the accompanying sound as the screen is punc- 
tured. The screen is painted white, then: 
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POW! A black hole is shot in the screen 
POW! Another black hole 
POW! Another 

This goes on until one hundred shots have been taken. There may not be one hundred 
holes in the screen since some shots may go through a hole that is already there. 

You may wish to change some of the data to vary the sound that is produced. A 
value that you might try changing is the 80 (fourth item in line 1060). 

A second demonstration uses the "running" of a single car across the screen (See 
chapter 3). We'll add some sound to the program. The sound subroutine of the pre- 
vious program is used again, but a change is made in the fourth data item, which con- 
trols the pitch of the noise produced. 

Car with Sound Program 

100 REM ** POKE SOUND ** 

1 1|2 CLS: GOSUB 100!? 

20j3 REM ** MAKE SOUND AND MOVE CAR ** 

210 FOR M = 1536(3 TO 15420 
220 X = USR(J2) 

230 POKE M+3,156: POKE M+2,140 
240 POKE M+1,170: POKE M,128 

250! NEXT M 

26(3 GOTO 260 

1000 REM ** POKE SOUND SUBROUTINE ** 
1(31(3 POKE 16527,125: POKE 16526,1 

i yj L X\ £ ~j ^L yi yj \ Ji ^s 'yj 

1(33(3 READ D: POKE Y,D 
1(340 NEXT Y 
1050 RETURN 

1100 DATA 14,1,6,4(3,58,61,64,23(3,253,198,2,211,255,214, 2,211 
1110 DATA 255,197,16,254,193,16,242,13,121,246,(3,32,234,201 

MEMORY SIZE is again set to 32000. The subroutine produces a short tone each 
time the car moves one rectangle to the right. 



■ 




Variations in the sound subroutine could oroduce different noises as the car moves 
across the screen. Our "putt-putt" sound is not the best. Try our own variation by 
changing the fourth data item in line 1 100. 
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Now we return to the Mandala Program introduced in chapter 3. This time, 
we'll produce a tone after each of the four symmetrical graphic symbols are displayed. 

Mandala with Sound Program 



Ipp REM ** SET UP MACHINE LANGUAGE ** 

1 1(3 CLS: GOSUB 1 jjjjp 

12!2 S = Ip: Z = 25(3: POKE 32!22!3,Z 

2;3p REM ** DRAW MANDALA ** 

2 1!3 FOR N = (3 TO 330 STEP 66 
22p FOR R = (3 TO S 

23(3 A=RND{2)-1 :B=RND(2)-1 : C=RND ( - 1 ) :D=RND{2) -1 :E=RND(2)-1 : 

24(3 F=RND(2)--1 

25)3 IF N=p THEN M=(3 ELSE M=62*(N/66) 

26(3 UL=128+A+2*B+( 2*C)| 2+ ( 2 *D ) |3 + ( 2 *E )|4+ ( 2 *F ) |5 

270 UR=128+B+2*A+( 2*0)12 +( 2*C)|3+( 2*F)i4+( 2*E)t5 

280 LL=128+E+2*F+( 2*C)i 2+(2*D)i3 + ( 2*A)j4+( 2*B)i5 

290 LR= 1 28 + F+2*E+( 2*0)12 +(2*0)13+ {2*B)t4+(2*A)f5 

300 PRINT @544,CHRS( 191 );: PRINT @1 44+N+R , CHR$ ( UL) ; 

310 PRINT @176+M-R,CHR$(UR) ; :PRINT@912-M+R,CHR${LL) ; 

320 PRINT @944-N-R,CHR$ (LR) ; 

330 X = USR(0) 

340 NEXT R 

350 Z = Z-5: POKE 32020, Z 

360 S = S-1 

3 70 NEXT N 

400 REM ** WAIT AWHILE ** 

4 10 FOR WAIT = 1 TO 500: NEXT WAIT 
420 RESTORE: CLS.: GOTO 120 

1000 REM ** SOUND SUBROUTINE ** 

1010 POKE 16527,125: POKE 16526,1 

1020 FOR Y = 32001 TO 32026 
1030 READ D: POKE Y,D 

1040 NEXT y 

1050 RETURN 

1100 REM ** MACHINE LANGUAGE DATA ** 

1110 DATA 14,255,33,0,255,58,61,64,230,253,198,2,211 

1120 DATA 255,214,2,211,255,6,250,16,254,37,32,241,201 



MEMORY SIZE is set to 32000. After drawing four symmetrical graphic sym- 
bols, a tone is played. The tone variable (Z) is lowered (this raises the tone) for the dis' 
play of each line of graphic characters. 
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Example: (Only upper left corner of screen shown) 



st Note 



n 



2 nd Note 







7 








1 ■ 


- 


— 



etc. 



For a variation, try switching lines 330 and 340. 



34j3 X = USR(p) 



How will this change the program? 




Now a single note will play after each line of the mandala is displayed, instead of 
after each four symbols. The note rises in pitch each time. 

Our last sound demonstration program maices use of several BASIC statements 
that you can incorporate into other programs. It allows you to fill the screen with text. 
A warning sound is included for the end of each line. A little birdie "chirps" when you 
arc vvituin five characters of the snd cf line A diffsrsnt sound is included that SGunds 
after each keystroke is made. A third sound is given each time you press the ENTER 
key after each line of text is com.pleted. 

After you have filled the screen with text, the display is cleared and the entire 
message is again displayed. A fourth sound provides a surprise ending. 
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The sounds are produced in one of four subroutines. The text is stored in a string 
array labeled B$(N) that is dimensioned for 16 strings (one for each line of the video 
screen). Each string in the array is built up in a loop that allows up to 64 characters in 
the string. This loop can be exited by pressing the ENTER key to terminate that par- 
ticular string. The INKEYS function is used to enter each character that is added to 
the current string being formed. 

Write Text Program 



1(3 REM *INITIALIZE* 

2(3 CLEAR 15p!3 

3p POKE 16527,125: POKE 

4p DIM B${16) -a 

50 CLS 



16526 , 1 : GOSUB 1 



Save string space 
16 lines of strings 



1PP 

1 1 (3 
12(3 
1 3(3 
14!2 
1 5p 
16p 
17(3 
18;3 
19(3 

m 

21(3 
22(3 



SCREEN 

.aj 



WITH TEXT* 



REM *FILL THE 
FOR N=1 TO 16 

C = 1 

A=PEEK( 16416)+PEEK( 16417)*256 

IF (A/64-INT(A/64) )*64 = 57 GOSUB 1(3(3(3 

A$ = INKEY$: IF A$=" " THEN 15(3 ELSE PRINT A$ ; 

IF ASC(A$)=8 THEN C=C-1: B$ ( N ) =LEFTS ( B$ ( N ) 

IF A$=CHR$(13) THEN GOSUB 2(3(3(3 ; GOTO 22(3 

GOSUB 3(3(3(3 

B$ (N)=B$ {N)+A$ -a «. 

C = C+1 : IF AC<63 THEN GOTO 13(3 ^ 
GOSUB 2(3(3(3 
NEXT N 



- Loop for 16 lines 

~ 64 characters per line; 
Get cursor position 

,C-1):G0T0 13(3 

- Check for ENTER key 



Add A$ to string 



23(3 REM * CLEAR SCREEN AND REPRINT TEXT* 

24(3 FOR W=1 TO 5(3: NEXT W 

25(3 CLS 

26(3 FOR W=1 TO 2(3(3: NEXT W 

270 FOR N= 1 TO 15 

28(3 PRINT B$(N) 

29(3 GOSUB 2(30(3 

3(3(3 NEXT N 

3 1 PRINT BS (N) ; 

320 GOSUB 4000 

330 GOTO 330 

1000 REM ** RING BELL ** 

1010 POKE 32004,2: POKE 32020,150 

1020 X = USR(0); FOR W = 1 TO 20 : NEXT W 

1030 X = USR(0) 

1040 RETURN 

2000 REM ** CARRIAGE RETURN SOUND ** 

2010 FOR Y = 1 TO 5 

2020 POKE 32020,255 

2030 X = USR(0) 

2040 NEXT Y 

2050 RETURN 

3000 REM ** KEY CLICK ** 

3010 POKE 32020,2 

3020 X = USR(0) 

303 RETURN 
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4|2!3|3 REM ** SURPRISE ENDING ** 

4j31|3 FOR Y = 5!? TO 1(3(3 STEP 5 

4(32(3 POKE 32(32(3, Y 

4(23(3 X = USR((3) 

4(34(3 FOR W = 1 TO 5(3; NEXT W 

4(35(3 NEXT Y 

4p6(3 RETURN 

1p(3(3(3 REM **POKE MACHINE LANGUAGE ** 
1(3(31(3 FOR Y = 32(3(31 TO 32(326 
1p(32(3 READ D: POKE Y,D 
1(2(33(3 NEXT Y 

1(3(35p DATA 1 4,255 , 33 ,(3 , 2(3, 58,61 ,64 , 23(3 , 253 , 198 , 2 , 21 1 
1(3(36(3 DATA 255,214,2,211,255,6,15(3,16,254,37,32,241,2(31 

In line 1 30, the variable A is assigned the current cursor position on the video 
screen. This value is held in memory locations 16416 and 16417. The value changes 
with each keystroke. Since the decimal number 255 is the largest value that will fit in 
any one oicmory location, the cursor's position on the screen (a incniGry location be- 
tween 15360 and 16383, inclusive) must be broken into two parts. Memory location 
16416 holds the least significant part of the cursor's position. Memory location 16417 
holds the most significant part of the cursor's position. This later value must, there- 
fore, be multiplied by 256 before it is added to the least significant part, to form the 
complete decimal value of the cursor position. Line 140 compares the current position 
to the number 57 to see if it is equal to that position on the given line. If it is, a GOSUB 
statement causes the warning bell at subroutine lUUU to ring. 

Examples: 

a) Cursor at position 1 84 



r 



A=184 
A/64 = 2.875 
INT(A/64) = 2 
(A/64-INT(A/64))*64=56 

b) Cursor at position 185 

A=185 

A/64 = 2.890625 
INT(A/64) = 2 
(A/64-INT(A/64))*64=57 GOSUB 1000 and ring bell 



r 



3rd line, 57th position 
3rd line, 56th position 



EO 



Don't ring bell yet 
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After a key is pressed, the character is printed by line 150. If the ENTER key 
was pressed, line 170 calls the carriage return sound subroutine at line 2000. On re- 
turn from the subroutine, the GOTO statement (end of line 170) causes the next line 
of text to be started. If some other key is pressed, line 1 80 calls the key click subroutine 
at line 3000. The character is then added to (concatenated) the string at line 190. 

The last section of the main program clears the screen and then prints the string 
array, giving the carriage-return sound at the end of each line. A bonus sound is 
provided to indicate the end of the text. Press the BREAK key and type RUN if you 
want to type in a new screen of text. 

The demonstration that follows is fairly self-explanatory. The end-of-line warn- 
ing bird chirps when there are five or less spaces left on the line you are typing. Any 
line can be terminated by pressing the ENTER key (as on line 1). Empty lines can be 
executed by pressing the ENTER key more than once. Key clicks are produced after 
each keystroke. A surprise bonus sound is produced when the last line of the text is re- 
printed on the screen. 

Here is a demonstration using the program: 



THIS IS A DEMONSTRATION OF THE WRITE TEXT PROGRAM. -9- 

AFTER PRESSING RETURN. TYPE THE SECOND LINE. THE BELL RINGS. 
PRESS ENTER TO GET TO THIS THIRD LINE. THIS TIME WE WILL TYPE U 
NTIL THE CARRIAGE IS AUTOMATICALLY RETURNED. NEXT TIME SPACE 

IN 5 SPACES BEFORE TYPING ADDITIONAL TEXT. PRESS RETURN 
WHEN YOU HEAR THE BELL OR FINISH THE WORD IF THERE IS ENOUGH 
ROOM. YOU CAN ALSO TERMINATE THE LINE AT ANY TIME 
BY PRESSING THE ENTER KEY AS WE JUST DID. YOU CAN ALSO HEAR 
THE KEY CLICKS AS EACH LEITER IS TYPED. PRESS ENTER TWICE NOW 

AND YOU WILL SKIP ONE LINE. WITH A LITTLE MORE WORK, YOU COULD 
MAKE THIS PROGRAM INTO A SIMPLE WORD PROCESSOR, 



THE ENTER KEY WAS PRESSED THREE TIMES AFTER THAT LAST LINE. 
TWO LINES WERE SKIPPED. NOW LISTEN AND WATCH AS YOU FINISH 



Press 
-ENTER 

- Automatic 
return 



MICRO MUSIC 

Another commercial, sound-producing program is called MICRO MUSIC and is 
available from Radio Shack stores for around SI 4.95. It comes in cassette form with 
both Level I and Level II versions on the same tape. MICRO MUSIC, as the title sug- 
gests, is used to produce music. It lets you type a tune directly on the video screen us- 
ing a letter for each individual note (C,D,E,F,G,A, or B). 

You can hear the results of your composition in several ways. You can connect 
the plug that usually goes to the recorder to a Hi-Fi system. You may also use the in- 
expensive Radio Shack amplifier/speaker discussed earlier in this chapter. Another 
method is to record the results on tape using the cassette recorder in the normal way. 
Then you can play back the tape to hear the music. 
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MICRO MUSIC has a five-octave range including normal notes, sharps, and 
flats. Three different tone qualities can be programmed into your music. You can pro- 
gram whole notes, half notes, quarter notes, eighth notes, dotted notes, and triplets. 
You also have a choice of two basic tempos. You can repeat sections of your music up 
to nine times and even use an alternate ending the last time the section is played. 

Each note and its duration are displayed at the bottom of the video screen as it is 
played. Your tape recorder is automatically started and stopped each time you want to 
record your music. Editing features allow modification of your song between plays, 
making it easy to get your composition just the way you want it. Instructions for using 
MICRO MUSIC are provided with ihe casseiie software. These instructions include: 

a) general description, 

b) load and use instructions, 

c) editing features, 

d) instructions on how to write your own music (with several short 
examples), 

e) fl discussion nf advanced features, 

f) instructions on saving and loading the composition, and 

g) a reference sheet of functions. 

Using MICRO MUSIC 

Let's look at some features of the MICRO MUSIC softv/are as it is used on the follow- 
ing Radio Shack system. 
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In addition, the Radio Shack amplifier/speaker shown on page 1 58 is used. 

On a Level II TRS-80, the software is loaded in the SYSTEM mode since it is 
written in machine language. When the system is turned on, you see: 

MEMORY SIZE- 



press the ENTER key. 



MEMORY SIZE? 

RADIO SHACK LEVEL II BASIC 

READY 

>- 



Type: SYSTEM and press ENTER, then wait until the asterisk (*) appears on the 
screen. 



MEMORY SIZE? 

RADIO SHACK LEVEL II BASIC 

READY 

>SYSTEM 

* 



Type: MUSIC and press ENTER, then wait for the second asterisk. 



MEMORY SIZE? 

RADIO SHACK LEVEL II BASIC 

READY 

>SYSTEM 

♦MUSIC 

* 



Type: a backslash (/) and press ENTER, then wait until a flashing asterisk 
appears in the upper left corner of the scteen. 



•k 



Now you can-type in the notes to be played. 
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Examples: 
Up the scale 



CDEFGABtC* 



Plays 




The SHIFT key and Hey 
are pressed together to 
shift up one octave 



Down the scale 



KiBAGFEDC* 



SHIFT 
to go up 



SHIFT 
to go down 



Plays. 



- A 



A Typical Amateur's Composition 

Music can be composed directly from sheet music using MICRO MUSIC. Even if 
you've never played a musical instrument, you can be composing your own music in no 
time at all. If it doesn't sound right, you can easily change your arrangement with the 
editing features. 

Composer's own version of Scarborough Fair 

(3D2D4A4G4A4E4.F8E4D2.A2|C4D8C8D8D8.C81A4B4G4A2A4ID2 1D4F2G4A4G4F 

4D8C8C4D4D2A4G2F4E4D4C4D2R4D2D4A4G4E4.F8E4D2.A2TC4D8C8D8D4.C81A4 

B4G4A2A4ID21D4F2G4A4G4F4D8C8C4D4D2A4G2F4E4D4C4D2R4)RRR 



TUNING UP YOUR COMPUTER 177 



Special Features 

The following special features are used by MICRO MUSIC. 



Keyboard 


Function 


Entry 


Resulting 


B# 


play B sharp - whole note 


B- 


play B flat - whole note 


82 


play B - half note 


B4 


play B - quarter note 


B8 


play B - eighth note 


B. or B2. 


play B 1 '/2 times the stated length 


or B4. 




or B8. 




SHIFT! 


shift to next higher octave 


SHIFT! 


shift to next lower octave 


L 


change tone quality (to thinnest) 


M 


change to double time 


N 


hark" tc\ nrtrmnl frnm trin1i»t Qtiipntfr* 




or tone 


R 


rest 


S 


stacatto 


T 


speed up for triplets 


V 


change tone quality (thinner than normal) 


w 


slow to half speed 


Y 


play in high range (upper 3 octaves) 


Z 


play in bass range (lower 3 octaves) 



Edit Functions 

a) Move the cursor left, right, up, or down. 

b) Clear screen for new music. 

c) Change to command mode. 

d) Begin playing music. 

e) Insert a blank space. 

f) Delete a character. 

g) Interrupt the music. 
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Summary 

In this chapter, we have shown one method to produce sounds on the TRS-80. 

» We made use of the cassette output port and a Radio Shack Speaker/ Amplifier to 
make the sounds. 

« We found that BASIC was not fast enough to make useful sounds. Therefore, we 

resorted to writing a machine language subroutine that was accessed through a 

BASIC program by means of the USR function. 
>» To eiilcr Liic uiacluiic miigucigc subi Outirie, we had to reserve a block of memory 

for it. This was done by inputting a memory location when the computer was 

turned on in response to the prompt: 

MEMORY SIZE? 

" The POKE statement was used to place the machine language subroutine in mem- 
ory when the BASIC program was run. 
s The machine language program was executed by the BASIC statement: 

X = USR(!2I) 

o Several demonstrations were given to show how sound can be added to previous 
BASIC programs. 

o The Radio Shack program, MICRO MUSIC, was discussed and directions on its 
use were given. 

Seif-Test 

1 . Signals are sent from the TRS-80 Computer to the cassette recorder's 
(REMOTE, EAR, AUX) jack. 

2. When we used our simple sound system, we connected the cable which normally 
goes to the recorder to send the sounds to a — 

3. BASIC language proved to be too (slow, fast) to produce useful sounds. 

4. A machine language subroutine can be accessed from a BASIC program by 
means of the function. 

.5 . How do you save memory space for a machine language program ? 



6. Your machine language subroutine should begin at the memory location that is 
(one more than, one less than, the same as) the number specified for MEMORY 

7. MICRO MUSIC, a cassette program to produce your own music, is available 
from 

8. The software for MICRO MUSIC is written in (BASIC language, machine lan- 
guage) 

9. To use MICRO MUSIC, you type in and that rep- 
resent the notes to be played. 

! A |i/f Ts" S> Ci Ms 'IS.XC r-Q r, nts'-/ '.yjhrsle Rud 

notes. 
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Answers to Self-Test 



1. 


AUX 


2. 


Speaker /Amplifier 


3. 


slow 


4. 


USR 


5. 


Input a memory location in response to the computer's MEMORY SIZE? 




prompt 


6. 


one more than 


7. 


Radio Shack stores 


8. 


machine language 


9. 


letters and numbers 


10. 


half, quarter, eighth, and dotted 



CHAPTER NINE 

Special Features and Fancy Functions 



In chapter 2 you learned to save memory space by squeezing several BASIC state- 
ments into a single program line. Of course, doing so makes a program difficult to 
read, but when you need the space, every extra byte is appreciated. 



This chapter shows some other ways to save memory in your TRS-80 and introduces 
the powerful error handling capabilities of your small computer. Let's start by doing 
things with the BASIC language that use as little memory as possible. 



We have an older Level II 16K TRS-80. If you have a newer machine or one with 
more memory, most of the following demonstrations will produce individual results 
that differ with what shows on our screen. Don't worry about that. Go ahead and try 
the examples. The memory savings (the differences between any two results) discussed 
are the same for all machines, regardless of computer memory size. 




Take Small Bytes First 



181 
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To begin, type NEW and then ask the TRS-80 to give you the number of bytes 
of free memory space by typing: 



PRINT 



If you have a 48K 
TRS-80, your screen 
will show 48340 . . . 
(15572 + 32768) 



MEM 

L 



READY 

>PRINT MEM 
<- 1 5572 -a 




ReMEMber! MEM is 

a TRS-80 reserved 

word for the variable name 

that contains the number of bytes 



If you have a 32K 
TRS-80, you will 
show 31956... 
(15572 -I- 16384) 



number of bytes of 
RAM available 



Now try this example. Type: NEW. With the screen cleared, type: 



A=1 

PRINT MEM 



Y our screen shouki show the foiiowing inioniialiun; 



There is now 
less memory avail- 
able 



READY 

>A=1 ^9 

READY 

>PRINT MEM 
»»• 1 5565 
READY 
>- 



You typed these 
lines 



Before setting the variable A to one, 15572 bytes were available. When the vari- 
able A was set to one (A=l), the MEMory count went down to 15565, 7 fewer bytes of 
free memory. {For those of you with larger or newer machines: The number on your 
f^r-j-f>a-^<i will nl'sn l^p Hr»\v^ b^-' 7 b^-'*— s» M?^^b^^6S with ^2IC win show 31 949: 481^ will 
show 48333. No matter v/hat your screen shov/s, just watch the differences, and you 
can foiiow along with the discussion.) 

Seven bytes! The TRS-80 used up 7 bytes to reserve a place in memory for the 
variable A (the place where the number 1 is now stored) and to record the name of the 
variable. In fact (we will tell you how we know this later) the TRS-80 used 4 bytes to 
store the number and 3 bytes to store the name. Four plus three is seven. There must 
he a way in save some tw" this soace. There ss. , . . Read on. 
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!! IMPORTANT MESSAGE !! 
DO NOT SKIP 

In the last example and in those that follow, if you make a typing mistake that 
results in a 7SYNTAX ERROR, start the example over from the beginning. 
Start by typing the word NEW and then the rest of the example. 

Why? Because typing an error can cause the TRS-80 to use memory space. 
This extra use of memory throws off the memory count in MEM, and the re- 
sults on the screen will be other than what is shown in the book. 

Here is a deliberate entry of an error to demonstrate what occurs. We type 
NEW to clear the screen. Then we type: 



The screen shows: 



A=1 

PINT MEM 
PRINT MEM 



Ooops!! 



We typed: 




READY 
>A=1 
READY 
>PINT MEM 
?SN ERROR 
READY 

>PRINT MEM 

15558 _ 
READY 



Ooops! 



Without an error 
this value was 
15565 



So, if an error occurs while you are entering an example in this section, stop 
and reenter the example from the beginning. 

!! IMPORTANT MESSAGE !! 



If you have not read the message shown above, please do so now. O.K., how can you 
save some memory space? Enter the next example, and observe what happens to the 
value of MEM. 



Type the following into your TRS-80: 



NEW 
A%=1 
PRINT MEM 
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Your screen should show the following information: 



You typf 
lines 



READY 
A% = 1 
READY 
>PRINTMEM 

15567 

READY 
>- 



This value was 
15565 

when you entered 
A = 1 

without the percent sign 



By placing the percent sign after the variable name, two bytes of memory were 
freed for use. Two bytes doesn't seem like much at this point, but wait. A byte here 
and a byte there soon adds up to a lot of extra memory. Best of all, you can have the 
TRS-80 take care of the bookkeeping problems of how to make these savings. 

The percent sign after the variable name told the TRS-80 to treat A% as an 
integer. That is, A% would not need a decimal point and would never have any 
fractional values (values requiring numbers after the decimal point). Knowing this, 
the TRS-80 can conserve on the amount of memory needed for this variable. When the 
variable A is used without the percent sign, the TRS-80 reserves seven locations in 
mem„ory (three for the name; four for the value). For A%, five locations are reserved 
(three for the name; two for the value). 



A Quick Look at Precision 

For most numeric variables, such as those in earlier examples of (A=l), the TRS-80 
reserves 7 bytes of memory. Three bytes store the variable's name and four bytes store 
the variable's value. Numbers stored in this form are called single precision numbers 
and the variables are called single precision variables. A later chapter discusses in 
detail exactly how a number is represented in the 4 bytes and how it is retrieved and 
used in arithmetic. For now, learn the terminology so you can see how much space is 
used when you put numbers into the TRS-80. The goal in this chapter is to talk about 
the use of space. 

You have already seen that variables v/ith a percent sign (%) after the variable 
name take less memory to store numbers. Integer vax'mhl&s, as these type of variables 
are called, use only 5 bytes of memory. Here is a short table that compares some 
features of single precision and integer variables: 

Type of Bytes used Value ranges 

Variable Name Value Total Smallest Largest 

Integer 3 2 5 -32768 +32767 

precision 3 4 7 -1.70141 1E4-38 -H.70411E+38 
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As you can see, integer variables take up less memory but can only represent numbers 
that are much smaller than single precision variables. Unless you put a percent sign 
after a variable name, the TRS-80 automatically makes the variable single precision. 
The TRS-80 also allows you to explicitly tell it that a variable is single precision by 
putting an exclamation point after the variable name. For example: 

{ I 
A! = 1 Tells the TRS-80 explicitly 

to make the variable 
single precision 



produces the same result as using the assignment statement A=l. 

If you enter one of the earlier examples but use an exclamation point (!) this 
time, you can show that the TRS-80 does work this way. 
Enter the following statements: 



NEW 

A! = 1 
PRINT MEM 



Your screen should display: 



READY 
>A! = 1 
READY 

>PRINT MEM 

15565 

READY 
>- 



The same use of 
memory as when you 
typed A=I 



So, A=l and A!=l produce the same result in terms of the amount of memory being 
used. More on what single precision is about later. For now, continue to look at how to 
save some space. 



Take a Few More Bytes 

Space saving or space usage begins to become a significant factor when you use arrays. 
Enter the following into your TRS-80: 

NEW 

Assigns the value -a a ! ( p ) = i 

"one" to the single p^^^nt mem 

precision (!) array 
A! — first element 
position A!(0) 
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Type in the lines. Your screen should indicate this result: 



READY 

>A! ((3) = 1 
READY 

> PRINT HEM 

15520 

READY 

>- 



Hmni . . . 

This example used 
a lot of memory 



me avauaoie memory locaiiujis uavc ucoii icuuvtu uy ujii-i.;; »» 
assignment of one number into the array A! caused the TRS-80 to use up 52 bytes. 

(15572- 15520 = 52) 

Try one more experiment before you attempt to puzzle out what has just occurred. 
Enter the followine lines into the computer: 



NEW^ 
A%(0) = 1 
PRINT MEM 



The percent sign tells the 

TRS-80 to set 

up an integer array 



Does your screen show this display? 



READY 

>A%(p) = 1 
READY 

>PRINT MEM 

15542 -t^ 

READY 
>- 



Down 30 bytes from 
15572 



Are you beginning to see any patterns in these results? Well, the difference between 
the number of bytes used for the A! array and the A% array is 52 minus 30, or 22 
bytes. Aha! Each array contains 1 1 elements (since no DIMension statement was 
used). Two times 1 1 is 11 — the number of bytes difference in the two values of 
memory used. You saw previously that an integer variable required two less bytes of 
memory. For this set of experiments, each array had 1 1 elements so You get the 



idea? 



if 1 



the number of array elements gets larger, the amount of memory space you can save 
by using mteger arrays becomes proporiionaliy larger. 
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Two Thousand Bytes Is Worth a . . . 



Using single precision or integers for large arrays can have significant effects on the 
amount of memory you use in a program. 

Enter and RUN the short program that follows: 



When you ran the program did the number 11 536 appear at the top of your screen? If 
not, make certain you typed the program exactly as shown above. Put in the spaces 
shown in lines 1 10 and 120. When your program looks like the one above, RUN it 
again. 

O.K., now change line 1 10, as follows: 



RUN this program. Does your screen now show 13536? Yes! Good! Let's see, 
13536 minus 1 1536 is 2000 — 2000 bytes of memory difference between the two small 
programs! All you did was change the ! to a % — a change from single precision to 
integer variable names. The motto is: Use integer arrays, if you can and save yourself 
a lot of memory. 



Some of you (those of you who like puzzles) are probably still a few pages back trying 
to unravel the mystery of how the TRS-80 came up with 52 and 30 bytes, respectively, 
for the use of the unDIMensioned A! and A% arrays. Without going into a lot of 
detail, here is a table that shows the TRS-80 memory allocations for arrays of these 
types: 



1000 elements 



IjJjJ CLS 

1 1p DIM A! (999) 
12(3 PRINT MEM 



1 1 j3 DIM A%(999) 



1000 integer 
elements 



Answer to the Unasked Question 



Bytes Used 



Type of 
Array Variable 



Array 
Name 



Array Number of 
Size Dimensions 



Each Each 
Dimension Element 




3 



3 



2 



2 



2 



2 



4 



2 
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Information in the table shows that the unDIMensioned integer array A% 
requires the following number of bytes: 

« 3 for the name 

• 2 for the size of the array 

= 1 for the number of dimensions 
® 2 for the single dimension it is using 

• 22 for the number of elements (2 times 1 1 ) 

J. i.v/ cvytiii K^J ^^u. X .^.A.t,— f/. — . _ — 1- 

the last item in the list. The array A! would require 4 times 1 1 , or 44 bytes, for its 
element storage. Adding this number of bytes to the eight required for the name, 
size, number of dimensions, and the single dimension yields 52 bytes. The mystery 
is solved, for now. You will soon have a few more to puzzle over. 

Enter the following sequence of commands into your TRS-80: 

NEW 

A! = 1 + 2/3 . 

PRINT A! — Put A! into A% 

A% = A! 

Here is what your screen should show: 



READY 

>A! = 1+2/3 
READY 
>PRINT A! 

1 . 66667 ^— Yes, 1 plus 2/3 is 
READY^ ^ 1.666666... 
" that rounds out to 1 .66667 

>- 

Can you guess what tiic screen displays when this statement is entered? 

PRINT A% 

If you said the number one ( 1 ), you're correct. When A% is set equal to A!, only the 
integer portion of the number is stored into A%. The fractional portion of A! is not 
carried over. So, beware! If you are using integer and single precision numbers 
together, you can experience inadvertent truncation of results in the computer. 



What will this do?' 
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Double Trouble 



Some applications, mostly scientific and engineering problems, require more precision 
for the numbers and calculations used. If you want to know why, look up some friendly 
neighborhood scientists and have them explain their reasons for this need. As for the 
TRS-80, it is ready to handle those problems. Try the following examples and see how 
the TRS-80 accomplishes this feat. 

Many science applications use the constant pi in calculations. Pi is the ratio of 
the distance around a circle to the circle diameter. The formula for this relationship is: 

circumference= pi X diameter 

So, pi is equal to the circumference (distance around the circle) divided by the 
diameter (distance across the circle). Pi (often represented by the Greek symbol tt ) 
turns out to be a constant for all circles. The value of pi or TT is: 

/7/ = 3. 141592653589... 

The ellipsis (three dots at the end) indicates that the number goes on forever. Pi can 
be represented by as many digits as you want to use, but you always have to truncate 
some portion of the never-ending stream of numbers it takes to represent pi exactly. 
(It is not possible to actually show it exactly, since the numbers go on forever and 
never repeat.) Things become complex when you begin to deal with the world of 
science! 

But, suppose you need pi to be represented in the TRS-80 with at least as much 
accuracy as shown above. Try it and see what happens. 

Enter the number and have the TRS-80 PRINT it on the screen for you: 

PI = 3.141592653589 
PRINT PI 

Does the result look like this? 

>PI = 3. 141592653589 

READY 

>PRINT PI 

3.14 159 Where's the rest? 

READY 
>- 
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The TRS-80 truncated the last seven digits of the number. Hmm . . . let's see. Pi is a 
single precision variable. What is needed is a variable with more precision — 
something like a double precision variable. 
Try this: 




= 3.141592653589 



PRINT PI# 

X llljr tiill-e, ''"•^"■""b f J - — ■ 

remember all of the digits this time? 

>PI# = 3. 141592653589 
READY 

>PRINT PI# 

3.14 1 592653589 Yep! There's 

READY the rest. 

>- 

Placing a # symbol after a variable name tells the TRS-80 to reserve space for a 
double precision number. But, what does this cost in terms of the number of bytes of 
memory? 



Comparing Bytes 

If you run the same set of comparisons done earlier on the amount of memory used by 
double precision variables versus integer and single precision, you would discover that 
double precision numbers require 1 1 bytes of memory. That amount of memory is 4 
bytes larger than a single precision number. If it still takes only 3 bytes to store the 
name, then a double precision variable uses 8 bytes for the storage of the value. Yes, 
that is double the number of bytes used for value storage by a single precision variable. 
The following table summarizes these results: 



Type of Bytes Used 



Integer 3 2 5 % Use these 

Single symbols 

Precision 3 4 7 ! behind the 

Double variable 

Precision 3 8 11 § iiaiiie 



You also get comparable results for double precision arrays. 
Enter the following: 

NEW 

PRINT MEM 
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Your screen should show: 



READY 

>A#(i3) = 1 
READY 

>PRINT MEM 

15476 That's 96 bytes used 

READY 

>- 

For arrays, double precision variables use 4 bytes more per array element than single 
precision arrays, and 6 bytes more per element than integer arrays. Here is a brief 
summary of the space used by unDIMensioned arrays and arrays containing 1000 
elements: 

Number of Bytes Used 
Array UnDIMensioned DIMensioned 
Name (11 elements) (1000 elements) 



A% 30 2008 Integer 

A! 52 4008-^ ^ Single Precision 

A# 96 8008-^^ ^ Double Precision 

Each array requires 8 bytes to store the name, size of the array, number of dimensions, 
and space for each dimension (one dimension in this case). The rest of the space is used 
to store the values to be put into the array. 

Double Warning! Double Warning! 

Take care when letting the TRS-80 convert single precision numbers to double 
precision. 

Enter the following and observe the results: 

NEW 

A# = 1/3 
PRINT A# 

Look at the screen carefully: 

READY 

>A# = 1/3 
READY 
>PRINT A# 

. 3333333432674408 Strange!! 

READY I 1 
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The fraction one-third is another repeating number that can be represented by 
a 1-o-n-g string of threes after a decimal point. 



I — I 




Forever 



The TRS-80 screen does not show this result. The last nine digits of the displayed 
number are "garbage." Only the first seven digits are accurate. How can this be fixed? 
Simple! Just enter the constant into A# this way: 



A# = 1/3# ■ 



■ Put symbol at end 



When you rRINT A# after making this assignment, the screen shows: 



17 digits 



String Space 

So far, all of this chapter's discussions have dealt with numeric variables and arrays. 
What about string variables and string arrays? How do they use memory space? 
Begin your exploration of string space by entering the following into your 



TT5 C OA. 



NEW 

A$ = "1" 
PRINT MEM 



Good! What do you see? Does it look like this? 



READY 
>A$ = "1" 
READY 

>PRINT MEM 

15566 

READY 
>- 



6 bytes used 



all the rest you have looked at), then the other 3 bytes must be used to store the string. 
Right? Well . . . let's see. 

Trv this set of entries: 




NEW 

AS = "123456789 



9 characters 
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Huh?! Did you get the same number of bytes of MEMory available? 

READY 
>A$ = 
READY 
>PRINT 
1 5566 
READY 

MOW can mis oe .' 

Oh, yes! The TRS-80 puts strings in a special block of memory called the string space. 
When you first turn the machine on, 50 bytes of memory are reserved for string 
operations. (Review chapter 2 for more discussions of this feature.) You can reserve 
more or less space by using the CLEAR command. CLEAR releases the string space 
for other use; CLEAR 1000 would increase the string space to 1000 bytes. 

The difficulty is that when the characters of a string are placed into the string 
space, the value of MEM does not change. As more strings go into the space, the space 
fills, and, if the space is exceeded, an error message occurs indicating that you have 
run out of string space. You need a way to tell how much string space is being used to 
avoid having the program stop with an error. The TRS-80 lets you do this for FREe. 
(Oops, we gave it away.) 




Type the following statement into the TRS-80, and observe the result produced: 



MEM 




Same number! 



PRINT FRE("D" 



■ Any string will 
work 
here 



The screen should show: 



>PRINT FRE("D") 

41 

READY 
>- 



The number of 
bytes of FREE 
memory in the 
string space 
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The available string space is 50 minus 9, or 41 bytes. Nine bytes were used in the 
last example when you entered A$=" 123456789". There are nine characters in the 
string and that takes up nine memory locations. So, string variables behave somewhat 
like numeric variables, except the total amount of memory used depends on the size of 
the string being used. The same is true for string arrays. This table summarize these 
results: 

Bytes Used 



Anay Name 



Single Variable 

(Includes 3 
bytes for name) 



Arrays 



jnDIMensioned 
(11 elements) 



r>TMensionftd 
(1000 elements) 



A% 
A! 
A# 
*A$ 



5 
7 
11 
6 



30 
52 
96 
41 



2008 
4008 
8008 
3008 



*Note: A$ also uses 1 byte for every character that appears in every string. The total 

space used is a function of the size of the strings stored in A$. 

Naming Names and Saving Space 



Bv now. manv of vou have orobablv realized that usina the characters %. !. and $ to 
indicate variable types in a program can lead to a lot of errors in typing. Also, the extra 
characters use memorv snace themselves in simolv storins the lines of the nrosram, 
The solution: TRS-80 special BASIC language features called type definitions. 

The TRS-80 allows you to specify and control how variables and constants are 
handled in the TRS-80 memory with statements that DEFint variables to be of a 
particular type (integer, single precision, double precision, or string) based on the first 
letter of the variable name. Here's how it works. 

Try this small program: 



100 REM ** DEFINING VARIABLE TYPES ** 

110 CLS 

Variables beginning i20 defint a, x-z -« A a.nd X. through Z 

with these letters * " l'^^ ^ 

140 Y = 3. 14159 

wAlhs typed as ^sfi print "a = ",-a,"y = '■;y 



Luie 120 tcils the TR3-oO tu treat aii variauies Iriai. oegiu wiin liie letter A and tnose 
that begin with the letters X through Z as integer variables. The last type definition 
(X through Z) allows you to specify a range of variables to be of a particular type. 
RUN the program and observe the results: 



A = 1 

>- 



Y = 3 
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The two variables contain only the integer portions of the numbers used in the 
program. The fractional portions were truncated because the DEFINT statement told 
the TRS-80 that A and Y were integer variables. 

Similar statements exist for typing other variables: 



Use 



DEFINT 
DEFSNG 
DEFDBL 
DEFSTR 



To Get These Variable Types 
Inter 

Single Precision 
Double Precision 
Strings 



The list of letters 
you want to use for 
integer, single precision, double 
precision, and strings are 
placed 

after these words 

Enter and RUN this short program that uses all of the type definition 
statements: 

Ijap REM ** TYPE DEFINITIONS ** 
1 1p CLS 



STR$ converts a 
number to a 
string 



2!3p REM **TYPE THE VARIABLE NAMES ** 

21 (J DEFDBL D 

22(3 DEFSNG S 

23(3 DEFINT I 

24(3 DEFSTR Z 



3j2|3 REM ** ASSIGN VALUES ** 

31|3 DPI = 3. 141592652589 — 

32|3 SPI = DPI 

33(3 IPI = DPI 

34|3 ZPI = STR$(DPI) 

4(3(3 REM ** PRINT RESULTS ** 

41(3 PRINT "DPI = "; DPI 

42(3 PRINT "SPI = "; SPI 

43(3 PRINT "IPI = "' IPI 

440 PRINT "ZPI ZPI = "; ZPI 



-IT 



Your screen should show the following: 



This is a 
string 



DPI = 
SPI = 
IPI = 
ZPI = 
READY 
>- 



3 . 141 592653589 

3. 14159 

3 

3. 141592653589 
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Enough typing of variables. Just remember! When you type in programs and want a 
particular type of variable, use type definitions by typing the BASIC language words 
that tell the TRS-80 to type the variables the way you want them. Also remember, 
when you are typing not to make any errors in typing the type definitions. Got that? 
No?! Well, maybe typing variables is not the type of thing you like to do. 




ERROR Handling on the TRS-80 

The TRS-80 has a unique capability that gives you the chance to intercept errors that 
occur and create your own way of handling them. No one likes using a program where 
an inadvertent mistake causes the program to abort and stop, often with the display of 
some cryptic message that cannot be easily deciphered. 

This short program demonstrates an abortive error condition: 



Make Nan ipja rem ** error demonstration 

integer variable ~— 

~~ -®>12!3 DEFINT N 



2^9 REM ** ACCEPT AN INTEGER NUMBER ** 

2 10 INPUT "PLEASE ENTER A POSITIVE INTEGER" ;N 

22)3 PRINT "OK, I GOT IT . . ." 

230 PRINT "I WILL COUNT TO "; N 

25j3 PRINT 
26(3 GOTO 21(3 



If you RUN the program, you will be asked to enter a positive integer. For integers 
from to 32767, the program acknowledges the input and executes the FOR-NEXT 
loop N times. Try the program using several values such as 100, 200, and so on. 

Now, try entering a value such as 100000. What happens? The program should 
stop and the screen shows: 



OV? 

What's that 
mean? 



PLEASE ENTER A POSITIVE INTEGER? 1 

?0V ERROR IN 21|3 

READY 

>- 



Since N was DEFmcd to be an integer variable, the largest value N can assume is 
32767. The number 100000 is too big lo go into N. The error message indicates this 
condition with the cryptic display: 



OverFlow . . . 

of course!! 



?0V ERROR IN 21(3 



— — „ „„ . _ j„ — — „ J, — 

a "compassionate" message without causing the program to terminate. 
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Add these few lines to the program and RUN the altered version: 

120 ON ERROR GOTO 10(3(3 



Two new Basic statements 
that you may not 
have used before 




REM ** ERROR HANDLING ■ 
PRINT "I'M SORRY . . . 
BE LESS THAN 32767" 
1(22(3 PRINT "PLEASE TRY AGAIN. 
1(33(3 RESUME 




THE NUMBER MUST 



PRINT 



When you RUN this changed version, try entering 100000 and observe what 
happens: 



Your error message 
is displayed 



PLEASE ENTER A POSITIVE INTEGER? 1(3(3(3(3(3(3 

I'M SORRY . . . THE NUMBER MUST BE LESS THAN 32767 

PLEASE TRY AGAIN. 



PLEASE ENTER A POSITIVE INTEGER? - 



The TRS-80 waits patiently for 
a number — the program does 
not stop 

The statement at line 120 tells the TRS-80 that when an error occurs anywhere in the 
program control is to be transferred to line 1000. (Of course, you can choose whatever 
line number you want. The error handling does not always have to branch to line 1000. 
More on that later.) At lines 1010 to 1020 an error message is displayed, and at line 
1030 a RESUME statement is encountered. The RESUME, in this form, tells the 
TRS-80 to continue the program at the line where the error was encountered. Clever!! 



But, wait!! You can do even more than detect that an error has occurred. You 
can also determine what line of the program caused the error and actually detect what 
type of error has taken place. 

Enter this next error-prone program and observe: 



This will 
clear N bytes 
of memory 



1(3(3 REM 
1 1(3 CLS 



MORE ERRORS ** 



2(3(3 REM ** CLEAR SOME STRING SPACE ** 
21(3 PRINT "PLEASE ENTER THE NUMBER OF" 
22(3 INPUT "BYTES OF MEMORY YOU WISH TO USE" 
23|3 CLEAR N: PRINT 

3(3(3 REM ** ACCEPT DATA ITEMS ** 
3 1(2 PRINT "PLEASE ENTER THE ARRAY INDEX" 
32(3 PRINT "NUMBER, AND THE STRING OF DATA" 
33(2 INPUT "ITEMS ( NUMBER , STRING ): "j^ I , S$ ( I ) 
34(3 PRINT ^ 
3 5^ GOTO 3 1(3 

Index String 

goes here 
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RUN the program. The screen should clear and the request for the number of 
bytes should appear: 

PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU VJISH TO USE ?- 

Let's say you enter 50 at this request; the program then displays: 

PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU WISH TO USE ? 50 

PLEASE ENTER THE ARRAY INDEX 
NUMBER, AND THE STRING OF DATA 

ITEMS (NUMBER, STRING) : ?- 

At this point, you can enter pairs of numbers and strings. The number you enter 
is used to index the data into the S$ array. If you enter a one (1), the string of data 
that follows goes into SS(1). S$, however, is not DIMensioned, so values of I greater 
than 10 cause an error to occur. In fact, several places in this program can cause errors 
that stop the routine. 

Here are three possible error conditions. Press the BREAK key, and reRUN the 
nrooram. Fnter the followine resnonses and verifv for vourself that these errors do 
occur. 



Response 

Enter 16000 for the 
number of bytes to CLEAR. 



Screen Will Show 

PLEASE ENTER THE. NUMBER OF 
BYTES OF MEMORY YOU WISH TO USE 
?0M ERROR IN 23(3 
READY - 



Out of memory 



Enter .50 at the first in- 
put request; 11, "OOPS" 



Jt th 



p cf^nr\r\r 



PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU WISH TO USE ? 

PLE.'ISE ENTER THE .^RR.'\.Y INDEX 
NUMBER, AND THE STRING OF DATA 
ITEMS (NUMBER, STRING) : ? 11, "OOPS" 
?BS ERROR IN 33(2 
READY ft^ 



fc-nter lu ai tne iirsi m- 
put request; 
l,"12345678901"at 
the second. 



PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU WISH TO USE ? 

PLEASE ENTER THE ARRAY INDEX 

NUMBER, AND THE STRING OF DATA 

ITEMS (NUMBER, STRING) : ? 1 , "1 23456789(31 

70S ERROR IN 33(2 

REAUV \ 



Out of string space 
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Wow! What a lot of ways to get errors in such a small program. You could handle the 
errors by putting IF tests in the body of the program, but that method clutters up the 
program's flow. A simple, direct way to handle all these errors is to add an error 
handling routine. 

Add these lines to the program and then try the same errors: 



Note: Different 
line numbers 
are used 

Tells how much 
memory is left 

Return -""^ 
control 
at line 210 



12(3 ON ERROR GOTO 9)2(3 -.1 

24p ON ERROR GOTO 1(3(3(3 -< 

9(3(3 REM ** ERROR ROUTINE ** 

91)3 PRINT "THAT AMOUNT OF MEMORY IS" 

92(3 PRINT "NOT AVAILABLE. . ." 

9 3p PRINT "TRY ANY VALUE FROM (2 TO" MEM 

94)3 PRINT: RESUME 21)3 



(ERR/2) + 1 = Error code** 



Error code 9 is BS error 



Return to line 310 



Error code 14 is 
out-of-string space error 



Return to line 210 




Return to line with 
error 



1(3)3)3 REM ERROR IS AT LINE 33)3 ** 
1(31(3 REM ** CHECK FOR BS ERROR ** 
1(32)3 IF (ERR/2) + 1 <>9 THEN 11)2(3 
1(33(3 PRINT "INDEX NUMBER IS TOO BIG ..." 
1(34)3 PRINT "MUST BE FROM (2 TO 1 p" 
1(35(3 PRINT "PLEASE REENTER" 
■1)36(3 PRINT: RESUME 31(3 

REM ** CHECK FOR OUT OF STRING ERROR ** 
IF (ERR/2) + 1<>14 THEN 1 2(3p 
PRINT "THE LAST ENTRY EXCEEDED THE 
AMOUNT" 

113(3 PRINT "OF AVAILABLE STRING SPACE ..." 
114(3 PRINT "PLEASE START OVER BY INCREASING" 
115(3 PRINT "THE AMOUNT OF SPACE YOU NEED." 
■117(3 PRINT: RESUME 21(3 

12(3(3 REM ** ANOTHER KIND OF ERgOR OCCURRED ** 
121(3 PRINT "ERROR . . . PLEASE REENTER" 
-122(2 PRINT: RESUME 



Here is what the screen shows as you enter the erroneous data items: 



PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU WISH TO USE ? 16p(3(3 

Error message from e- that amount of memory is 

lines 900 to 940 not available . . . 

TRY ANY VALUE FROM (3 TO 14615 

Control returned to fc- please enter the number of 

line 210 bytes of memory you wish to use ?- 



Enter 50 for this input and then try the second error: 
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Error message from 
line 1000 to 1060 

Control returned to 
line 310 



PLEASE ENTER THE NUMBER OF 

BYTES OF MEMORY YOU WISH TO USE : 

PLEASE ENTER THE ARRAY INDEX 
NUMBER AND THE STRING OF DATA 
ITEMS (NUMBER.STRING) : ? 1 1 , "OOPS" 
INDEX NUMBER IS TOO BIG . . 
MUST BE FROM p TO 1 (3 
PLEASE REENTER 



50 



PLEASE ENTER THE ARRAY INDEX 
inUmBER AND THE STRING OF DATA 
ITEMS ( NUMBER, STRING ): ?- 



\ 



**For a list of error codes, 
see Appendix C. 



S$(! 1) would normally cause a ?BS error 
in line 3 10. The ON ERROR GOTO 
routed the program to the error 
routine 



Now, enter valid index numbers but with long strings of data until the last error 
condition occurs: 



PLEASE ENTER THE ARRAY INDEX 

NUMBER AND THE STRING OF DATA 

ITEMS { NUMBER, STRING) : ? A, "ZZZZZZZZZZZZ" 

Error message from >- the last entry exceeded the amount 

lines 1 100 to 1 170 °^ available string space . . . 

please start over by increasing 

THE amount of SPACE YOU NEED. 

Control returned to ^ please enter the number of 

line 210 bytes of memory you wish to use ?- 



The error routines handle only out-of-memory (OM), bad subscript (BS), and out-of- 
tir\c!\ Tt'„ «„„„:u)„ „*u„_ „ „„«.,„;«ii,t :« 

line 330. Lines 1200 through 1220 provide a general error message for any other cases 
and RESUMES the program at the input line where the error occurred. See if you can 
discover an error that will cause the message at line 1210 to be displayed. 
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Other ERRORS I Have Known 

You have just been introduced to the error handling capabilities of the TRS-80. You 
have used the ON ERROR GOTO, RESUME, and ERR features. RESUME was 
used in two ways: 1) To return the program to the line where the error occurred, and 
2) to return the program to a different line by specifying a line number. RESUME has 
one more possible use — to ignore an error or continue program execution. By putting 
the words RESUME NEXT in your program's error-handling routines, control is 
given back to the next line in the program after the point where the error happened. 
So, RESUME can be used in three ways: 

Usage Action 



RESUME or RESUME Resumes program at the statement 

containing the error 

RESUME 1 00 Resumes at line 1 00 

RESUME NEXT Resumes at line after the point 

where the error occurred 

The TRS-80 also has one other variable name — ERL — that contains the line 
number of the line that caused the error condition. ERL can be used in IF-THEN 
statements such as: 

9^35 IF ERL023P THEN IjJj^ja 



ERROR Summary 

You can use a combination of ON ERROR GOTO, RESUME, ERR, and ERL 
statements and variables to build your own error routines. The ON ERROR GOTO 
statements tell the TRS-80 the location of the error routines. Each error routine can 
contain one or more RESUME statements that return control to the main program at 
the location you want control returned. You can use ERL and ERR variables to tell 
you where the errors occurred and what particular error conditions were encountered. 

The rest of the book shows examples (where appropriate) of the use of error 
processing within the program presented. The TRS-80 error handling features give 
you great flexibility in the v/ay you want error messages and error recovery to work 
within your programs. 
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Summary 

Two major capabilities of your TRS-80 are: 

« The use of type definitions and symbols. 
o The use of error handling routines. 

The TRS-80's BASIC language has four classes of variables: integers, single 
precision, double precision, and strings. You can tell the TRS-80 what variable type 
yoii want tn »ise in two ways: 1 ) put one of the following symbols (%, !. #, S) after the 
variable name, or 2) use a type definition (DEFINT, DEFSNG, DEFDBL, 
DEFSTR). 

In learning to use these methods of expressing variable types, you saw that each 
type uses different amounts of memory and that significant memory savings can be 
achieved by using the appropriate variable type. You also discovered that the TRS-80 
has several unique features built into the BASIC language to facilitate error 
processing. You can build your own error routines and can intercept the normal error 
messages that the TRS-80 generates. You have the program display messages of your 
choice; messages that state what you want to say to the user. The error handling 
statements and variables (ON ERROR GOTO, RESUME, ERL, ERR) can prevent 
the program from stopping unexpectedly because of an error condition. 

Now try your hand at the self-test that follows as a brief review of what was 
discussed in this chapter. 

1 . Match the correct symbol from the second column with the names in the first 
column, as they are used in the TRS-80 to specify the type of variable within a 
program: 

(a) Integer 1. # 

(b) Single 

Precision 2. $ 

(c) Double 

Precision 3. % 

(d) String 4. ! 

2. Which of the following four type definition declarations 

DEFINT DEFSNG DEFDBL DEFSTR 
are used to specify that variables beginning with certain letters are to be: 

(a) integer variables? 

(b) string variables? 

(c) double precision? 

(d^ sififfic Drscision*^ 
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3. If you use the following statement in a program, 

DEFINT A,D,M-Q 

which of these variables will be integer valued? 

(a) COSTS (b)DEBT (c) TAXES (d) ASSET(5,3) (e) PARTS 

4. How many bytes will you save if you use DIM A%(999) in place of DIM 
A!(999) in a program? 

(a) 1000 bytes (b) 2000 bytes (c) 4000 bytes (d) none 

5. What are the number of bytes required for each of the following simple 
variables? 

(a) A% (b) A! (c) A# (d) AS 

6. A mathematical constant called e has a value of: 

e = 2.7 1828 18284590452... 

If the following assignments are made, what will the contents of each variable 
contain if they were PRINTed? 

Assignment Contents 

E# = 2.182818284590452 
E! = E# 
E% = E# 
E$ = STR$(E#) 

7. The following assignment was made and the result PRINTed. Explain the 
results. 

>A# = 1/3 
READY 
>PRINT A# 

.3333333432674408 
READY 



a. _ 

b. . 

c. . 

d. . 



8. If you want to know how much memory is free for string storage, what BASIC 
function would you use? 

9. What are the four key statements and variables used in developing your own 
error handling routines? 

a b c d 
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1 0. Describe what appears on the screen when these two PRINT statements are 
executed: 

a. PRINT ERL 

b. PRINT (ERR/2)+l 

Answers to Self-Test 

1. a. 3(%) b. 4(!) c. 1(#) d. 2($) 

2. a. DEFINT b. DEFSTR c. DEFDBL d. DEFSNG 

3. Variables b, d, and e are integer variables. 

Variables a and c would not be integer valued unless there was another type 
statement in the program (DEFINT C,T) that told the TRS-80 to make them 
integers. 

4 b. 2000 bytes ( 1 000 elements times a savings of 2 bytes / element) 

5. a. 5 bytes b. 7 bytes c. 11 bytes d. 6 bytes plus 1 byte for 

each character in the string. 

6. a. 2.182818284590452 b. 2.182818 c. 2 

vi„ jL- I u x-u X *j z-Kj—r .J y \j~T .J 




1. The last part of the double precision result was not assigned. The constant 1 /3 
was calculated as a single precision value, and then assigned to A#. To correct 
this problem, the assignment should read: 

A#=l/3# 

8. You would use FRE(A.$) or FRE("DUMMY"). The argument can be any 
string value (it is a "dummy" argument). FRE can be used in calculations and 
PRINT statements. It returns the value of the amount of string space still 
available for use by the program. 

9, a. ON ERROR GOTO b. RESUME c. ERR d. ERL 

10. a. The line number of the last program line where an error occurred, 
b. The error code of the last error to occur. 

These two variables are valuable4n constructing your own error handling 
routines. 




CHAPTER TEN 

Graphics and Animation 



Earlier, in chapter 3, you loolced at some of the TRS-80's graphic abilities using the 
SET command, POKE command, CHR$ function, and string operations. You found 
that some BASIC statements put graphic characters or strings of information on the 
screen quickly. Some, like SET, do so more slowly but let you control a finer pattern of 
graphics on the display. To review, let's build a small program that compares several 
ways of putting the same information on the TRS-80's display. 

The Race Is On 

To start, enter and run this small program: 



1(3(3 
1 1(3 



REM 
CLS 



** GRAPHICS COMPARISON ** 




2(3(3 
21p 



REM ** USING THE SET COMMAND ** 
FOR X = (3 TO 127 



SET, three small — 
rectangles to form: 



22(2 
23(3 



SET(X,(3): SET(X,1): SET{X,2) 
NEXT X 



6(3(3 
61(3 
62(3 



REM ** WAIT AND THEN REDISPLAY ** 
PRINT@896, "PRESS ANY KEY TO CONTINUE" 
IF INKEYS="" THEN 52(3 ELSE 11(3 



Does your screen have a "bar" of light across the top? 



r 




PRESS ANY KEY TO CONTINUE 



205 
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The SET commands produce a bar across the top of the screen. Three rows of 1 28 tiny 
rectangles are "turned on" by the SET statements. Press a key and watch the opera- 
tion closely. As it is being drawn, the front edge of the bar seems a bit wavy. There are 
moments when you can see each SET statement at work. The small rectangle on the 
first row is SET, then the one on the second row, and, finally, the one on the third row. 

Now, add the next segment of the program and compare the results. Press the 
Break key and enter: 

3j3!3 REM ** USING CHR$ ** 
3 'i p FOR X ~ yJ TO o3 
32j2 PRINT@256+X, CHRS(191); 
3 3J3 NEXT X 

When this expanded program is RUN, the race is on. At the end of the first lap, 
the screen shows: 



Also produces the 

character Mi 



SET 



CHR$- 



PRESS ANY KEY TO CONTINUE 



The SET commands and PRINTing CHR$( 1 9 1 ) do the same thing — put a bar 
across the screen. The difference is that the PRINT statement does the operation 
faster. Press a key and observe the two bars being drawn again. No doubt about it, the 
PRINTing ofCHRS is fast 

Is there yet a faster way? Yes, there is. Press the Break key to stop the program 
and add these lines for the last entry into the race. 



j\ciiiciiiuci , ^uu iiavo 
to CLEAR extra 
string space for more 
than .50 characters 



4pp REM " " Ui: 
4 1 S3 CLEAR 64 



ING 3TRIMC 



Produces 64 across 
screen 
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After one race is run, the screen shows: 




PRESS ANY KEY TO CONTINUE 



Using STRINGS places the bar on the screen much more quickly than any of 
the other methods. Press a key and observe how fast the three bars are created. The 
STRINGS version goes on in the blink of an eye. 

The race is now over and you have a clear winner . . . uh oh! Here comes one 
more entry around the bend. You thought the race was complete, but there is still one 
more way to put the bar across the screen. The entry is getting closer. It looks like 
slowPOKE. Yes, it is slowPOKE; only slowPOKE is not so slow. 

Observe by runnning this program: 



How fast is 
one? 



5J2p REM ** USING POKE ** 
51^ FOR X = (3 TO 63 
-e- 52^ POKE 16128+X, 191 
530 NEXT X 



When you enter and RUN the program, your screen should show: 




PRESS ANY KEY TO CONTINUE 
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Was POKEing the bar across the sfcreen faster than using STRINGS? Press a key and 
look once more. Yep, STRINGS is still the fastest way to put the bar on the screen. 
POKE is also fast, but doesn't seem to be any quicker than CHRS. 

Here is a complete listing of the graphic comparison program; 



IPP REM ** GRAPHICS COMPARISON ** 
1 1 p CLS 



fast f 21j3 FOR X = p TO 127 

22(3 SET(X,!3): SET(X,1): SET(X,2) 
23(3 NEXT X 



3!3!3 REM ** USING CHR$ ** 
3 1!3 FOR X = p TO 63 
faster 3 2(3 PRINT@2 56, CHR$(191) 



4p!3 REM ** USING STRING$ ** 

fastest ■ 6^ 4 1(3 CLEAR 64 

4213 PRINT@512, STEING$ ( 64 , 1 9 1 ) ; 



5!2P REM ** USING POKE ** 

5 1(3 FOR X = (3 TO 63 

POKEalong >- 520 poke 16128+X, i9i 

53j3 NEXT X 



bjiji) REM WAIT AND THEN Rr-DISPLAi »» 

Wait!! »- 6 1|3 PRINT@896, "PRESS ANY KEY TO CONTINUE" 

62|3 IF INKEY$="" THEN 62j3 ELSE lip 



Let's go with the winner for a while and take the STRINGS function to look at other 
graphic operations that can be done quickly. 



Splitting tbe Screen 



Using STRINGS, the placement of graphic characters is fast enough to let you do sev- 
eral graphic operations that appear to be happening at the same time. 
Enter the following lines into your TRS-80 and RUN them: 



NEW 



Ipp REM ** SPLITTING THE SCREEN ** 
1 1 CLS 



Left side 
of screen 



Right side 




REM ** TOP TO BOTTOM/ BOTTOM TO TOP ** 
FOE Y = p TO 14 

PRINT @p + Y*64, STRINGS (32, 191 ) ; 

PRINT @928 - Y*64, STRING$ ( 3 2 , 1 9 1 ) ; 
NEXT Y 



Wait 



3fj)/) REM ** WAIT Am REDISPLAY «« 
■6- 31p IF INKEY$ = "" THEN 31p ELSE lip 
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When this program is RUN, the screen should show the following sequence of 
events: 



At the start 



Later . . . 




Even later . 



At the end. 





PRESS ANY KEY TO CONTINUE 



Press the space bar several times in succession. The screen empties and refills within 
seconds. The left half fills from the top down; the right from the bottom up. The ac- 
tions appear to occur at the same time. The end result is like opening a "window" into 
your TRS-80. The white area surrounded by the black border gives you the illusion of 
looking into a "window." Hmm ... is it possible to make the window any size and put 
it anywhere? 
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What Light through Yonder Window . . . 



The use of PRINT@ and STRINGS lets you place a string of characters anywhere on 
the screen and control the size of the string within STRINGS. In the last program, the 
statement: 



PRINT 



STRING$(32, 191 ) ; 
k 




tatting location 



Increment to 
next location 



Character 
code 

Length of string 



lets you specify completely where the string is to be placed (@0 + Y*64), how long it 
is to be (32), and what the displayed character is to be (191). With a little modifica- 

. 1. r „ - TftTk T'N.T'T' -J. - A A U«-%^ ~ « o.»«.A«nKr*a^ ciUn«><> rtOMOfO+Z^r rtf winHmi/ 

UOIl, IIUS one riVll'V 1 siatcilicill. \,an uwv^uiiiv^ a gi^uv^i ciiii-vv* i>xi€xy\^ 

maker. Before building the program, let's examine the PRINT statement that is the 
heart of the routine and see how it is constructed. 

Suppose, to start, that you want to begin your window anywhere on the screen. 
This requirement means a variable must follow the @ symbol: 



PRINT 

L is for the starting location 



To put parts of the window down the screen, the starting location must be changed. 
Add a variable that changes based on a FOR-NEXT loop (ROW) and an increment 
that you want to move up or down the screen (INC) to totally modify the starting 
location. 

PRINT @L + ROW*INC 

How far up or down 

Starting location Current row 

The PRINT statement now positions the strings of data on the screen. You can add 
the STRINGS function, but let's also make it as flexible as possible. Let the number of 

ROW that is displayed. If you use N for the number of characters and NINC for the 
increment that changes that number from ROW to ROW, then the PRINT statement 



r 

PRINT@L+ROW* INC , STRING$ (N+ROW*NINC ) 



The ROW counter 



Increment — 
how many more 
Same as before Starting number or less on 
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To make the statement completely general, let the displayed character be a variable 
(CH): 



Put semicolon, 
on end 



PRINT @L+ROW*INC, STRINGS ( N+ ROW*NINC , CH ) ; 

I — -T^ 4 

Same as before f Character code 

^ goes here 



OK? It may seem like a lot of effort, but remember, this one statement is going to do 
all the work. Now let's build the rest of the program around the PRINT statement and 
see what can be done. 

Enter the following: 



5 rows; starting at 
location 400; moving 
down one row each 
time (64); with 20 
characters each 
row (NINC=0); 
character code 191 



NEW 

1(3(3 REM ** SHAPE MAKER ** 
1 1(3 CLS 



REM ** ASSIGN INITIAL VALUES ** 
NR0WS = 5: L=4(3(3 : INC=64 



The work 
horse 

3(2( 
31( 

320 PRINT@L+ROW* INC, STRINGS {N+ROW*NINC,CH) 
3 3(3 NEXT ROW 



22(3 N=20: NINC=(3 : CH=191 



REM ** DISPLAY SECTION ** 
FOR ROW = (3 TO NROWS-1 -* 




5(3(2 REM ** WAIT AND REDISPLAY ** 

51(3 PRINT @896, "PRESS ANY KEY TO CONTINUE" 

52(3 IF INKEY$= "" THEN 52(3 ELSE 11(3 



That's all there is to the program. RUN it. 

Does this display appear on your screen? 



20 wide 



I ocation 
400 





5 rows 



PRESS ANY KEY TO CONTINUE 
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Simple! Want to make the window wider? That is easy too. 
Enter this line and RUN the program: 



220 N=4B: NINC=0 : CH= 1 9 1 



The "window will 
be twice as wide 



Does your screen now show: 



1 








■ 





































PRESS ANY KEY TO CONTINUE 



40 wide 



Changing the value of N from 20 to 40 causes a rectangular "wmdow • to appear on 
the screen. In a similar fashion, you can alter any of the variable values in lines 210 
and 220, and other shapes appear. Pressing any key except the Break key causes the 
shape to be redisplayed. 
Try this change: 

22i? N=4)3: NINC=-8:' CH= 1 9 1 
t 

Hmmm ... a minus eight! ' 

Wonder what that 
will do ... ? 



Tf yoii made the last change and have run the altered program, your screen 
should show: 



NINC=— 8 
made each 
row 
shorter 




40 wide 
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Interesting! You do have a shape maker, but you also need a simple way to change the 
variable values so you can have the new shapes drawn quickly. Let's alter the way the 
variables are assigned values and use INPUT statements to change values. 



A New Shape Maker 

Here is a much more flexible version of the shape maker. The program is altered in 
several ways to add the flexibility INPUTting the values directly. The alterations are 
worth the extra effort, as you will see. Here is the new program: 



NEW 
1(3 (21 
1 1|3 
1 20 



REM ** NEW SHAPE MAKER ** 
CLS 

CLEAR 1000 



Make room for strings 



This part 
handles the 
INPUTS 



The array A ^^"^ 
is being used 
to store values 
A(0) through A(5) 



2)3(3 REM ** ACCEPT THE INPUT VALUES ** 

2 1(3 PRINT @(3, "CHANGE VALUES (KEYS 1 TO 6 ): CONTINUE { OTHER KEYS) 

22(3 PRINT @64,"1 (NROWS) , 2 ( LOG ) ,3(INC) ,4(NCHR) , 5(NINC) ,6(CHR) 

23(3 A$ = INKEYS: IF AS = " " THEN 23(3 ELSE I=VAL(A$) 

24p IF I = (3 OR I>6 THEN CLS: GOTO 41(3 

25(3 REM ** CLEAR THE FIRST TWO ROWS ** 

26p PRINT @(3, STRINGS ( 128, " "); 

2 7p PRINT @^,"THE CURRENT VALUE FOR VARIABLE" I 

28(3 PRINT @64, "ENTER THE NEW VALUE"; 

29(3 INPUT A( 1-1 ) 

_3)3^ GOTO 21(3 



'IS" A( I - 1 ) 



4(3)3 REM ** DISPLAY SECTION 
41(3 FOR ROW = (3 TO A((3)-1 
42(3 PRINT @A( 1 )+ROW*A( 2 ) 
43(3 NEXT ROW 
44(3 GOTO 21(3 



STRING$(A(3)+ROW*A(4) ,A(5) ) ; 



Enter and RUN this program. The first thing you see should be: 



CHANGE VALUES (KEYS 1 TO 6 ); CONTINUE ( OTHER KEYS ) 
1 (NROWS) ,2(L0C) ,3(INC) ,4(NCHR) ,5(NINC) ,6(CHR) 



Start 
location - 



Number of 
rows 



/ ♦ 

/ Number of 

/ characters 

How far 
up or down 



4 

Character 
code 

How many 
more or 
less each row 
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Press the number one (1). What happens? The screen clears and then shows: 

THE CURRENT VALUE FOR VARIABLE 1 IS |3 
ENTER THE NEW VALUE?- 

Enter the value 5 and press the Enter key. The screen clears, and the first display 
returns: 



CHANGE VALUES(KEYS 1 TO 6 ) ; CONTINUE( OTHER KEYS) 
1 (NROWS) ,2(L0C) ,3(INC) ,4(NCHR) ,5(NINC) ,6{CHR) 



Enter the following information: 



PRESS 
2 
3 
4 
6 

ENTER 



Then Type 
400 "~~ 
64 
20 

191 _ 



Press ENTER 
_ after the 
values are 
typed 



When you press the Enter key the last time, the screen shows: 



CHANGE VALUES(KEYS 1 TO 6 ); CONTINUE ( OTHER KEYS ) 
1 (NROWS) ,2(L0C) ,3(INC) ,4(NCHR) ,5(NINC) ,6(CHR) 
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Aha! Your "window" is back. Now move the "window". Press key 2. 
The screen displays: 



THE CURRENT VALUE FOR VARIABLE 2 IS 4f 
ENTER THE NEW VALUE ?- 



Location 400 



mi 




Enter 200, press the Enter key, and then press the Enter key again. The window 
moves up and to the left, like so: 
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Experiment with other value changes. Change the location back to 400 (variable 
2) and change variable 5 to a minus 4. 
The sawtooth shape appears: 













^^^^^ 














^^^^^ 



Change variable 5 back to zero, and change variable 6 to character code 188. 
Is this what you see? 




Now, once again set variable 5 to a minus 4. 
Does the "bar chart" appear? 
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Experiment with other changes. Alter the character code while keeping the same 
shape. What do you discover? Is it possible to make these two shapes? (Hint: You 
must set variables 3 and 5 to specific values to get these two shapes.) 




The TRS-80 Electronic Easel 

The TRS-80's graphic abilities are fun to use. Make this one small change to the shape 
maker program you have been using, and then sit back for your first electronic art 
lesson: 

24p IF I=(3 OR I>6 THEN 4 1 ;3 

Now the shape maker will not erase the shapes you put on the screen. You can put one 
shape on the screen, move it to another location, and both are displayed. You can then 
add a third shape, ^Iter the character codes, and put as many different shapes as you 
want on one screen. Experiment with the program. Here is a picture of a shape we 
created: 




If you want to remove a shape from the screen, use character code 32 (space). You can 
also use this code to create "holes" in your drawings. Try other codes also, such as the 
numbers 48 through 57, and the letters 65 through 90. Have fun with the electronic 
easel. 
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Shake, Rattle, and Rumble 

The entire discussion on the shape maker programs was designed to show you how a 
single routine can be used in variety of ways. The shape maker is like a tool in your 
toolbox of routines that you can pull out and incorporate into other programs you are 
building. 

Here is another such routine that can be used to simulate being hit by cannon 
fire or being caught in an earthquake. (Art Canfield of Cybernautics Software uses 
something like this in his game Taipan.) 

Enter this program and RUN it to see what happens: 



NEW 

REM ** THE SHAKER PROGRAM ** 
1 1 CLS 



2 1 (3 FOR ROW = TO 4 

5 bars at location p- 22^ print @4!3!3+row*64, string$(2!3, I88) ; 

400 2 3!3 NEXT row 



REM ** MAKE IT SHAKE ** 
FOR I = 1 TO 2j2 

What's this?:::- ^ 32p print chr$(23) 



FOR J=1 TO 1p: NEXT J 
PRINT CHR$(28) 
JfajJ NEXT i 




4!2fp REM ** WAIT AND REDISPLAY ** 
4 1j3 IF INKEY$="" THEN 4 1 j3 ELSE 11 ( 



The image is placed on the screen and the screen then appears to go crazy for a 
moment. Press a key (except the Break key), and the shaking repeats. Great! Now you 
have a routine to shake things up a bit. 
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Big and Small 

The shaker program that you just examined makes two new uses of CHRS: 



CHR$(23) CHR$(28) 




Character codes 

To demonstrate what these two character codes are actually intended to do, en- 
ter and run the following program: 



NEW 



Easy on - 
the typing 
fingers 



Ip!? REM **SMALL TO BIG** 
1 1(3 CLS 

12(3 PRINT@448, "YOUR TRS - 
YOU WELL" 



WILL SERVE 



The message in the PRINT statement appears on the screen: 



The message 



*- YOUR TRS-! 
READY 
>- 



WILL SERVE YOU WELL 



Now, add the following line to the program: 

1 15 PRINT CHR$(23) 

What happens when you R.UN this altered program? Yes, the message appears, but in 
Wg letters. CHR$(23) tells the TRS-80 to display 32 characters across the screen 
where there are normally 64 characters. The characters appear twice as big with 
CHR$(23). 

Great! You can make your program messages easy to read by using CHR$(23). 
What about CHR$(28)? If you PRINT CHR$(28), the TRS-80 goes back to display- 
ing smaller characters. 
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Type the statement in the'Immediate Mode and observe the screen: 



PRINT CHR$(28) 



Return to regular- 
sized characters 



Your screen should show: 



READY 
>- 



Message is there, m 
small letters 



YOUR TRS-80 WILL SERVE YOU WELL 
READY 

> PRINT CHR$(28 



the spaces 
come from? 



CHRS(28) tells the TRS-80 to go back to 64 characters per line, and it also 
homes the cursor (puts it in the upper left corner of the screen). The READY message 

r^i iVta H'^TTT* r*^'?"**'^?! r*aaii1fli* email lf»ttr*r fnrmQt 

— rr' — — " ' r " ' ■ ■ 

Hold it! The messages that were on the screen before the PRINT CHR$(28) 
-.:;qc .■>-.'f>.":!t.->.'! Vinvf ursnr.oa hctvjpi^f. e.nch Iftftftr. Whv sfi? Well, when CHR$f23^ is uscd 
the TRS-BO takes up two positions from the 64-character line to make one position in 
the 32-character line. When the process is reversed, each of the second-character posi- 
tions in the 64-character line are empty. This feature offers some interesting possibili- 
ties to vary your displays. But, one word of caution!! When using CHR$(23), every 
PRINTed message must be placed on the screen at an even numbered location. 

Change line 1 20 to what follows and look at the results: 



12!^ PRINT @449, "YOUR TRS - 80 WILL SERVE YOU WELL" 
k 

Odd numbered location 



RUN this nrogram. What do vou see? Nothing? Yes, you see nothing. 



This will be 
in big 
letters 




No message!! 
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Type PRINT CHR$(28) in the Immediate Mode. Does your screen show this? 



YOUR TRS-E 
READY 

> PRINT CHR$(28 



Everything 
back to 
small 
letters 



, The message is back 
now?! 



WILL SERVE YOU WELL 



The message is still there, but the characters are in each of the second-character posi- 
tions. When CHR$(23) is used, the TRS-80 takes the characters in each of the first 
positions (they are spaces) and expands them into the larger character format. In this 
case, you get a row of bigger spaces. Oh, well!! Change the PRINT location back to 
448 or some other even-numbered value and this problem disappears (or reappears, as 
the case may be). 



Billboard Time 



If you have changed line 120 so that the PRINT location is 448, your program looks 
like this: 



Ipp REM **SMALL TO BIG** 

IIS? CLS 

Makes big k-iis print chr$(23) 

characters ''^P print @448, "your trs-so will serve 

YOU well" 



Let's add a few lines to turn this program into a flashing billboard display: 



Wait! 13(3 FOR I = 1 TO 3(3)3: NEXT I 

14(3 PRINT CHRS(28) ^1 Big letters 

Wait again »>i5)3 for i = i to 3(3(3: nexti 

16(3 GOTO 115 ^ Back to large letters 

The CHR$(23) at line 115 puts the message in large letters. CHR$(28) at line 140 
sets everything back to 64 characters per line. The message appears in smaller letters 
but with spaces between each character. The delays at lines 130 and 150 hold each 
version of the message on the screen for a while. The result: a flashing hiWhoaiT A 
message. 
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RUN the program, and see it for yourself. As you watch the message flash be- 
tween the two character sizes, think back to the Shaker Program. Can you now see 
why that earlier program seemed to make objects on the screen "shake?" The program 
was making several rapid shifts from 32 characters to 64 characters and back again. 
The effect produced was like watching the object being vibrated or hit by cannon fire. 
The use of CHRS to "shake" the screen was probably not meant to be an intended use 
of the function. Nevertheless, it is an effective way to simulate being "shaken," and 
you may find many more uses for this feature in your programs. 

New York, New York . . . 

Watching the flashing billboard may remind you of other forms of billboard signs, like 
the ones in New York's Times Square. Some signs flash; others display a message a 
few letters at a time and move the message past your vision from right to left. Can the 
TRS-80 be made to display one of these "endless" messages? Of course it can. 
Enter this program to see the TRS-80 turn into a biHboard display sign: 



t!2(3 REM ** TRS-8(3 BILLBOARD DISPLAY ** 
1 1!3 CLS 

12p A$ = " YOUR TRS-8!? WILL SERVE YOU WELL 



, One space 



Start with 
one 

short -— 
wait! 



20,0 REM ** ROLLING DISPLAY ** 

• 2 1 (3 I = 1 

22p PRINT @48(3 MID$ { A$ , I , 6 ) ■ 

.230 FOR J = 1 TO 5(2: NEXT J 

24)2 1 = 1+1 

25!3 IF ]>LEN(A$) THEN 2 1(2 ELSE 22(2 



at a time 



Check for end of 
message 



RUN the program and observe with delight what appears. Here is a 
representation of what you should see: 



First - 
Next — 
Next - 
Next - 
Next - 
Next - 
Next - 
etc. 



YOU 
YOUR 
YOUR 
YOUR T 
OUR TR 
etc. 



Message is 

'"6 

this direction 



This animation effect is difficult 
to shov.' on oaDer. Run the program. 
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The partial message moves from right to left past your vision and disappears off the 
left side. The entire message is displayed and then begins again. This technique is a 
clever way to pack a large message into a small "window" on the screen. (The Carlston 
brothers of Broderbund Software use examples of this horizontal scrolling in their pro- 
grams the Galactic Trilogy.) The billboard sign is being displayed in small letters. 
Would you like a bigger sign? 

OK, change line 1 10 to read: 



lip CLS: PRINT CHR$(23) 



Big letters 



RUN the altered program and your sign should appear in large letters. You can use 
this routine in many ways in your programs. 



WELCC 




Billy the Goat 



Up to now, you have seen several techniques for displaying graphics. You have not 
used the SET and RESET commands, but rather have relied on the faster CHRS and 
STRINGS functions. However, there are places where SET and RESET can be used 
effectively. Since they access the small rectangles on the screen, you can use them in 
situations where CHRS and STRINGS may not be effective. The next example ulti- 
mately combines STRINGS with SET and RESET. 
Enter and RUN this program: 



NEW 



I!?!? REM ** BILLY GOAT ** 

1 1|3 CLS 

12(3 CLEAR 2!3(3 

2(3!3 REM ** CREATE THE GOAT ** 

This is a 2i(3 a$ = string$(4, i56)+"@" 

goat? 

° 22P REM ** WALK THE GOAT ** 

230 FOR X = (3 TO 59 

Youusedthis 240 print string$ (x, 32)+a$ 

technique 25? next x 

in chapter 3 
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When you ran the program did "goat" appear and walk across the screen? Oh, it 
appeared, but it ran across the screen. Let's slow it down then. 




The character 1 56 is Ym 



Four of these look like: 



m 



■ 



When you add the @ sign, you get a "go 







m 




...... 

i 


■ 1 





type these lines into the program: 



Slow the 
goat 



25^ FOR I = 1 TO 5p 
26p NEXT X 



NEXT I 



There! Does the goat "walk" now? It does, but its gait is rather stiff-legged. So, 
let's make another modification to the program to move the goat's "legs." 
Enter these program lines into the TRS-80: 



Randomly set - 
and reset the 
goat's "legs" 



25p 
26J2I 
'27)21 
2812 
29)2 

310 



FOR I = 1 TO 2 
R = RND(8)-1 

RESET{X*2+R, 2) -aLeg position is 
R = RND( 8)- 1 ^location of goat's 

SET(X*2+R,2) ^ ,. ° , 

^gXT I tail(X), times two 

NEXT X (XX2),pluS 

the random number 
R(0 to 7). 



What happens when you RUN this program? The goat now "walks" across the 
screen, and its legs are '"'moving" on their own, not just with the movement oi" the body. 

Thus, SET and RESET can be combined with other graphic statements to pro- 
duce special effects on the screen. As you remember, CHR$ and STRINGS display 
six small rectangles at once. SET and RESET work with only one of the screen's tiny 
rectangles. A. normal line has 64 character positions, but 128 SET /PRESET positions. 
That difference is why lines 270 and 290 in the program multiply the position of the 
"goat's tail" (X) by two (XX2). A humorous action occurs if you change each iine lo 
X+R. Try it and see what occurs. 



GRAPHICS AND ANIMATION 225 



Summary 

This chapter has expanded your ability to use your TRS-80's graphic powers. You dis- 
covered that the STRINGS function is the fastest way to put strings of characters on 
the screen. You found that you could split the display area into several pieces and 
made it appear as if you were doing something in each area at the same time. 

You also developed a shape generator and shape maker program and then modi- 
fied it into an electronic easel. 

Finally, you explored several small routines to simulate "shaking" the screen. 
The CHR$ functions changed the size of the characters that the TRS-80 generated. 
You turned the TRS-80 into a flashing billboard and one that displayed an endless 
message. And, of course, you played with Billy the Goat. 

Time now for a few exercises (both physical and mental). After you have flexed 
your muscles, move on to the self-test at the end of this chapter and flex your mind. 
See you again in chapter 1 1 . 

Self-Test 

1 . Which of the following statements and functions put characters on the screen the 
fastest? 



(a) SET (b) CHRS (c) STRINGS (d) POKE 

2. Write a statement to put a solid bar on the screen from locations 448 to 575 (two 
rows). First, type: clear 128 

PRINT @ 

3. Write a set of statements to quickly place a vertical bar on the screen, beginning at 
location 30 and going to the bottom of the screen. Make the bar 10 characters wide. 

CLS: FOR Y = (3 TO 1 5 1 PRINT® : NEXT Y 

4. Write a set of statements to quickly place a "stair step" set of bars 10 characters 
wide from the upper left corner to the bottom of the screen. Make each bar shift 
one location to the right from the preceding bar. 

CLS: FOR Y = (3 TO 1 5 : PRINT @ : NEXT Y 

5. Describe what CHR$(23) and CHRS(28) do when PRINTed. 



226 MORE TRS-80 BASIC 



6. Write a small program to "flash" from big to little letters the message: 
ATTENTION !! ATTENTION !! 



7. Write a program to horizontally scroll an "arrow" from left to right in a small 
"windovv" near the center of the screen. 



8. Describe what happened in the Billy the Goat Program when the SET and RESET 
parameters were changed to X+R . 
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Answer to Self-Test 



1 . (c) STRINGS is the fastest way to place characters on the screen. 

2. PRINT @448, STRING$( 128, 191 ) ; 

3. CLS: FOR Y = p TO 1 5 : PRINT @3|3+y*64, STRING$ ( 1 p , 1 9 1 ) ; : NEXT Y 

4. CLS: FOR Y = p TO 1 5 : PRINT @!2+Y*65 , STRING$ ( 1 , 1 9 1 ) ; : NEXT Y 

5a. CHR$(23) tells the TRS-80 to use 32 characters per line. 
5b. CHR$(28) tells the TRS-80 to use 64 characters per line. 

CHR$(28) also homes the cursor (moves it to the upper left 

corner of the screen). 

6. ipp REM ** FLASHING MESSAGE ** 

1 1)3 CLS 

12(3 PRINT CHR$(23) 

13!3 PRINT @448, "ATTENTION !! ATTENTION ! !" 



2(3(3 REM ** DISPLAY SECTION ** 

21(3 I = LEN(A$) 

22(3 PRINT @48(3, MID$ ( A$ , I , 6 ) ; 

23(3 FOR J= 1 TO 5(3: NEXT J 

24(3 1=1-1 

25p IF 1= (3 THEN 21(3 ELSE 22p 



7. 1(3(3 REM ** SCROLL LEFT TO RIGHT ** 
1 1(3 CLS 

12(3 A$ = "iIWOW! " 



14(3 FOR I = 1 TO 3(3(3: NEXT I 

15p PRINT CHRS(28) 

16(3 FOR I = 1 TO 3(3(3: NEXT I 

17p GOTO 12p 





one space 5 spaces 



8. We're sorry, but that information is personal. Even Billy the Goat is entitled to 
some privacy: 



CHAPTER ELEVEN 

Arithmetic Functions 



You have probably used two arithmetic functions — RND and INT — in some of 
your earlier programs. These two functions were discussed in the first book in this 
series and they were used in several programs in the current book. RND generates 
sequences of "random" numbers. INT operates on a number, drops the fractional 
part, and returns with the closest integer value that is less than or equal to the number 
that you gave to the function. For example: 

You type: The screen shows: 



PRINT RND(6) 5 
PRINT INT(2.59) 2 
PRINT INT(-1 .7) -2 



Try these examples on your TRS-80. Note: since RND is random, your screen 
can show any number from 1 through 6. 

Your TRS-80 has many more functions that can operate on the numerical 
variables and constants within a program. All these functions are called arithmetic 
functions since they perform a variety of mathematical and computational tasks, as 
well as help you work with numbers within the TRS-80. All these functions return 
numeric values to the program. 



Conversion Functions 

Several functions exist to convert between integer, single precision, and double 
precision values. As a review, enter and RUN the next program that displays the same 
input values with different precisions: 
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Remember: — 

# is double precision; 
! is single precision; 
% is integer. 




1 

1 1 

1 2 
13!3 
Up 
1 5(3 
16!? 
1 70 



REM ** PRECISION DISPLAY ** 

A# = 3. 141592653589 

A! = A# 

A% = A# 

CLS 

PRINT "a# =";A# 
PRINT "A! =";A! 
PRINT "A% =";A% 



Your screen should show this display when the program is RUN: 



You've — 
seen 

this before 



A# = 3.141 592653589 
-B- A! = 3. 14159 
A% = 3 
READY 



Remember, these symbols (#, !, %), tell the TRS-80 that the variables are either 
double precision, single precision, or integer valued. 

Now, with the screen showing the results of running the program, type the 
following line {don't clear the screen or type NEW): 



Does the screen show this? 



Double 

precision 

result!! 



3. 141592653589 
3. 14159 



A# = 
A! = 
A% = 3 

>PRINT 1/CDBL(A%) 
. 3333333333 333333 
READY 

^ _ 



Hmmm , 



CDBL converted A% (an integer variable) to double precision thus forcing the entire 
expression to have a double precision result. This feature is handy to temporarily make 
3 (jouljlg precision comnutation with constants and variables that are either intesers or 
single precision. In this v.'ay you don't have to put the values to be computed into a 
double precision vaiiabic lucatiuii and do tlic aiillimctic. You, ti'ioieiOio, save iiierriory 
(remember how much room double precision variables occupy) and still can have the 
benefits of double precision computations. How would you convert from double to 
jingle precision? The typography gives you the answer — use CSNG. 
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Try it with the results of the current program by typing: 

PRINT csNG(A#) Try it! 

A# is a double precision variable that contains the number 3.141592653589, once the 
program is RUN. What does your screen show when you enter the PRINT statement? 
Is this what you now have? 



Single 
precision 
result 



A# = 3. 141592653589 
A! = 3. 14159 
A% = 3 

>PRINT 1/CDBL(A%) 
.3333333333333333 
READY 

>PRINT CSNG(A#) 
•3. 14159 
READY 
>- 



CSNG performed the same operation as the program assignment of A! = A#. In 
each case, the value in A# was converted to a single precision number. 

Have you guessed what the last function is? Yes, it is one that converts values to 
/«/egers. The name of this function is CINT. 

Type this line into your TRS-80, and see what happens: 



PRINT CINT( A#) 



Try it also 



The screen should now show: 



Integer 
result 



A# = 3 . 141592653589 
A! = 3.14159 
A% = 3 
READY 

>PRINT 1/CDBL(A%) 
.3333333333333333 
READY 

>PRINT CSNG(A#) 

3. 14159 
READY 

>PRINT CINT(A#) 

■ 3 

READY 
>- 



Using CINT results in the same final value as the program assignment A% = 
A#. The integer portion of the value is stripped from the number, with the fractional 
part dropped. CINT works the same way as INT. They both return an integer value 
that is the closest value less than the number or expression within the argument field. 
CINT is different in one respect — it only deals with values that are in the range of 
-32768 to +32767. Numbers outside that range produce an ?OV ERROR 
(overflow). 



232 MORE TRS-80 BASIC 



Try these examples on your TRS-80. What will be displayed? 

PRINT ciNT(2.75) -4 ■ 2 displayed 

PRINT ciNT(-i.4) ^— 2displayed 

PRINT ciNT( 111111) ?OV ERROR displayed 

Using the Conversion Routines 

Significant time and memory savings are made by using the conversion routines. First 
enter and RUN the next program: 

REM ** TIME TRIALS ** 
CLS 

B# = 16/CDBL(3) 
C# = 2i2l/CDBLC3) 
FOR I = 1 TO 2!3|3!3 

A = B# * C# 
NEXT I 

PRINT "CALCULATIONS COMPLETE" 

The program takes a 1-o-n-g time to run. The double precision variables B# and C# 
make the TRS-80 work to perform the multiplication shown in line 1 .50. Time the 
program. The routine should make the 2000 calculations in about sixty seconds. 

]Vfr<vy c.nnnnp.e al! voii need at line 1 SO is the single nrecisioT! nortions of and 
C# to use in the computation. Make that change and see how long the program takes. 

Dp.p.j,t.=r Hnfi 1 SO frilln-ji's- 

15(3 A = CSNG{B#) * CSNG(C#) 

Now RUN and time this program. Surprise! The program now executes in twenty-five 
seconds. By changing line 1 50, you told the TRS-80 to work with just the single 
precision portions of B# and C#. The result is a savings of thirty-five seconds when the 
program RUNs. 

You must be anxious to try the last test — changing the calculation to integers. 
Go ahead, and enter this line: 

15!? A% = CINT(B#) XCINT{C#) 

What happens when you try this version of the program? Almost no change? That 
seems to be true; the prograiii iiiay run one or two seconas laster tuan tne iast version, 
but it is difficult to tell the difference. Most of the savings are made ill just dropping 
the double precision, no matter how the drop occurs. You may want to experiment 
further with programs that test how fast the TRS-80 works. Go ahead and explore. 
Try changing the mathematical operation to addition, subtraction, division, and 
exponentiation. Vary the conversion functions and record all the times of execution. 
Learn how your TRS-80 works and you will enjoy its capabilities even more. 



1J3P 
1 1|3 

DoesB#XC# ]ll 

2000 times \.l ^14R 
150 
J 6(3 
170 
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What Else Can You Do with Numbers? 



Type NEW and clear any old programs from your machine's memory. 
Now enter this statement: 




PRINT SGN<7), SGN(-7), SGN(!2I) 



Look at the result on the screen. Can you guess what SGN is all about? Yes, it stands 
for the SiGNof the number; that is, SGN tells you whether a number is positive, 
negative, or zero. How? 

Look again at the screen; 



PRINT SGN(7), SGN(-7), SGN(j3) 




SGN returns a +1 when the number is positive; -1 when the number is negative; 
when the number is 0. How can this function be used? 

Enter the Oracle Program given below. This program tells you whether a num- 
ber you enter is negative, zero, or positive. 



Have you 
seen this 
before? 



SGN(N)+2 is either ' 
1,2, or 3 



Ipp REM "ORACLE PROGRAM" 

1 1 (3 CLS 

12p INPUT "PLEASE, ENTER A NUMBER"; N 

13(3 ON SGN(N)+2 GOTO 140, ISj?, 1 6J3 

14!^ PRINT "THE NUMBER IS NEGATIVE.": GOTO 1 2p 
15(3 PRINT "THE NUMBER IS ZERO.": GOTO 1213 
16(3 PRINT "THE NUMBER IS POSITIVE .": GOTO 1 2p 



RUN the program and enter the three numbers 7, —7, and 0. The screen should 

show: 



The oracle 
works 



PLEASE, ENTER A NUMBER? 7 
THE NUMBER IS POSITIVE. 
PLEASE, ENTER A NUMBER? -7 
THE NUMBER IS NEGATIVE. 
PLEASE, ENTER A NUMBER? R 
THE NUMBER IS ZERO. 
PLEASE, ENTER A NUMBER? - 
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Try other values. Can you fool the oracle? Try entering -0 or +0. Does the pro- 
gram get those right? Yep, it's tough to fool an oracle. How about small numbers? Try 
.00000001 or -.000000000001. They work also!! Well, you might try: 



What did you get? Aha, that number fooled the oracle. Actually, what happened is 
that the number is beyond the precision of the TRS-80 computer. The INPUT routine 
treats the number as ii would a zero. The siioriliaiiu uuialioii fui Llic nuuibci is 



So, the oracle wasn't fooled. The INPUT routine converted the number to a zero and 
then went on to the SGN test. Oh, well, the number lE-41 is almost zero. 

Try lE-38 at the INPUT request. The program says that number is positive. Try 
1 E-39. What happens in this case? Yes, the program says that number is zero. Some- 
where between lE-38 and lE-39 is the smallest number that the TRS-80 can accept as 
an IJNFU 1 . Maybe you can locate that number. Try .99E-38, then .98E-38, then . . ., 
then .95E-38, then .94E-38. You should see positive, positive, positive, and negative 
results, respectively. 

Now you know it is somewhere between .9.5E-38 and .94E-38; you are narrowing 
in on it. The last number you tested was .9404E-38 and it tested positive. You might 
want to continue this search on your own. 

When you get tired of looking for the smallest number, enter this next statement: 



.00000000000000000000000000000000000000001 
^ 40 zeros 



lE-41 




A 1 with 40 zeros to the 
left and the decimal point 



PRINT ABS(7), ABS(-7), ABS{(3) 




Another new 
function 



Does the screen look like this? 



( 



PRINT ABS(7), ABS(-7), ABS ( jj ) 
7 7 
READY y 
>- / 




sign? 
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You have probably guessed what ABS does. ABS eats minus signs; that is to say, ABS 
returns the ABSolute value of the argument it receives. If the argument is positive or 
zero, ABS of the argument is equal to the argument. If the argument is negative 
(arguments are almost always negative . . . discussions can be positive), ABS returns 
the argument without its minus sign. ABS negates negative arguments, making them 
positive. Is all of this clear? If not, just remember ABS eats minus signs. 
ABS is best used to test the difference of two values, such as: 

IF ABS (X2-X1 ) < . jJppjJI THEN STOP 

The statement shown causes the program to stop when the absolute value of the differ- 
ence between the variables X2 and XI is less than .00001 in value. The program stops 
even if XI is bigger than X2, as long as the difference is between 

(-.00001 < difference <. 00001 

Without a function like ABS, the number of lines needed to make the test and stop the 
program increases, and the logic of making the tests gets complicated. 

Let's examine one final function that tells you something about a number in your 
TRS-80. SGN tells you what the sign of a number is; ABS tells you what a number is, 
without its sign. 

Enter this statement and determine what the new function tells you about a 
number: 



Hmmm . . . FIX looks a bit like INT or CINT. But, wait! There is one difference: 
FIX(-7.5) gives back a -7. INT and CINT would return a value of -8. FIX simply 
returns the integer portion of the number and strips away the fractional part. How can 
FIX be used? 

Try this set of entries: 



PRINT FIX(7.5), FIX(-7.5) 

Aha! ===rr— 




A name 
that is readable 



Does your screen show: 




A = 7.55 

PRINT FIX(A) "DOLLARS AND" ( A- FIX ( A ) ) * 1 !3!3"CENTS" 
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Here is what the screen should show after making the two entries: 



Clever! 



A = 7.55 
READY 

>PRINT FIX(A) 
- 7 DOLLARS AND 
READY 
>- 



' DOLLARS 
55 CENTS 



AND" ( A-FIX(A) ) * 1! 



"CENTS" 



Gives the 
fractional part 

Anytime you need only the integer portion of the number, FIX can gi\'e you that value. 
Try a few FIXes in your own programs. 



The Square Root Function 

Up to this point, all the functions you have used dealt with manipulating numerical 
values (changing precision, locating the sign of the number, returning the absolute val- 
ue, etc.). With the next function, you will perform your first true mathematical opera- 
tion on a number. 

Enter this statement: 

In math notation, 
SpR(4) is V 4 or 

4" 

Did you get the number 2 printed on your screen? The number that was returned 
is the square root of the argument 4. In other words, 2 is the number that when 
squared (multiplied by itself — 2X2), gives the number 4. (Yep, 2X2 = 4.) 

Now try: 

PRINT SQR(2) ■ ■ sjl 

and 

PRINT SQR(121)-< Vl21 



PRINT SQR(4) 



names again 



Did you get 1.41421 for SQR(2) and 1 1 for SQR(121)? Yes? Great! Let's see . . . 
1 1 X 11 is easy to check. That multiplication gives 121 as an answer. But, what about 
1 41 421 X 1 .4142 1 ? How can you check that one? 
Use the TRS-80. Just type: 



PRINT 1.4142 1*1.41421 



ARITHMETIC FUNCTIONS 237 



What did you get? Oh! You got 1.99999 instead of 2. It is close, but not exact. 
What happened? Well, the square root of 2 is a number like some earlier ones you 
worked with that have endless fractional parts that never repeat. So, 1.41421 is only 
part of the number. Many more digits go after those shown. A still better way to check 
is to let the TRS-80 keep as many digits as it can while making the computation. 

Try this version: 

PRINT SQR(2)*SQR{2) 

The answer comes back exactly 2 in this case. Is there any other way to check the 
answers? After all, using the function that produces the answers to check itself doesn't 
seem fair. Here is a short program that computes the square root using an iterative 
procedure (a routine that keeps making successive approximations of the answer and 
stops when the result is sufficiently close to the desired value). 

REM ** NEWTON -RAPHSON EQUATION ** 
REM ** TO COMPUTE SQUARE ROOTS ** 
CLS 

REM ** SET XI TO ANY POSITIVE VALUE ** 
XI = 5(3 

REM ** N IS VALUE FOR SQR(N) ** 
INPUT "ENTER VALUE "; N 

REM ** COMPUTE APPROXIMATION ** 
X2 = .5*(X1 + N/XI ) 

REM ** CHECK FOR STOPPING ** 
IF ABS(X2-X1) <.i3!3!3!3!31 THEN 24(2 

REM ** EXCHANGE XI and X2 ** 
XI = X2 
GOTO 18(3 

REM ** DISPLAY RESULTS ** 
PRINT "THE SQUARE ROOT IS" X2 
PRINT "THE SQR FUNCTION GIVES" SQR(N) 
GOTO 16(3 

Enter and RUN this program using the values 4, 2, and 1E17 at the INPUT re- 
quest. The screen should show: 

ENTER VALUE? 4 
THE SQUARE ROOT IS 2 
THE SQR FUNCTION GIVES 2 
ENTER VALUE? 2 
THE SQUARE ROOT IS 1.41421 
THE SQR FUNCTION GIVES 1.41421 
ENTER VALUE? 1E17 
THE SQUARE ROOT IS 3.16228E+j38 
THE SQR FUNCTION GIVES 3.16228E+!38 
ENTER VALUE? 



Any positive 
value will 
work 



Here is use of 
ABS 



Make the old guess 
the new guess 




1 SjJ 

lep 




The answers 
are the 
same 
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The routine seems to work, and both the iterative formula and the SQR function give 
the same answers. Do you suppose that the TRS-80 itself might be using the Newton- 
Raphson formula to compute square roots? So much for a fair test! 

The program will not produce correct results for numbers whose roots are smaller than 
.000001 in value. Can you see why? Yes, the cutoff test uses that value to stop the 
iteration. To have the program get the correct roots of smaller numbers, change the 
value in line 200 to an appropriately small number. Caution: As the number is made 
smaller, the program runs for a longer time. Set up some time trials and test this fact 
yourself. 



To fully understand the TRS-80's trigonometric functions, you need a bit of geometry. 
Don't worry; you aren't expected to become a mathematician. The concepts are quite 
simple and are introduced only so you can use all of your computer's capabilities. 
There are at least two ways to locate an object from a fixed position of reference; 

( 1 ) In terms of coordinates that measure how far over the object is and how 
far up. 

(2) The distance to the object in a straight line, and an angle from some 
reference direction. 

The first system looks like this: 



This coordinate system is often called the Cartesian system afterthe French 
mathem_atician, Rene Descartes, The distance to the right is often labeled X; the 
distance up is labeled Y. The distance R (not D, since this distance relates to the 
radius of a circle ... but that's for later) is given by the BASIC formula: 



The SINE of the Times 




Location of object 



over 



In math notation 



R = SQR(X|2 + Y|2 ) 



R = Vx'+y' 
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The second system is called the polar coordinate system and is pictured in this 

way: 




The two systems are related in that they both locate the object in the same place. The 
way they are related is through a set of functions called trigonometric functions. 
Trigonometric, or trig, functions are relationships between R, the straightline distance 
to the object, the X and Y of the Cartesian system, and the angle 6 (theta) of the 
polar system. One function is called the sine of theta and is given by the equation: 

Sine( ) = Y/R 

Now, the sine of the angle changes value as the angle changes. When theta is 
zero, Y is zero and the sine of theta is zero. 



R is along 
reference 
coordinate 



R 



(9 = 0" 



Location of object 



° Indicates 
degrees of angle 



When theta is 90 ° , Y is equal to R and the sine of theta is 1 . O.K. so far? Oh, yes, 
Theta goes from 0° along the reference direction to 90° when the object is directly 
above the fixed reference point, to 180° when the object is directly to the left, to 270° 
when the object is directly below, to 360 ° (or back to ° ) when the object is back at 
the starting position along the reference direction, as shown below: 




Direction of movement: 
counterclockwise 



270° 
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How does the sine function behave as theta moves through all of the quadrants? 
It goes from to 1 in the first quadrant; from 1 to in the second; from to -1 in the 
third; from -1 to in the fourth. You can prove that these conditions hold by 
computing values for Y/R in all quadrants. A better way is to use the BASIC 
language function SIN (not evil, just short for sine). To do so requires you to learn one 
tiny detail. Most computers that have trig functions require that the angle theta be 
represented in a measurement called radians. Convert radians to degrees like this: 



1 radian = 57.29578 



Magically enough, 27r radians is equal to 2 X 3.14159 X 57.29578, or 360°. 



27r = 360° 



So, if 2 V radians equals 360 ° , then the conversion from degrees back to radians is: 

1 degree = 2 X 3.14159/360 = .0174533 radians 

This last item is the punch line. In BASIC, to convert from degrees to radians, you 
multiply the angle (in degrees) by .0174533. If none of this makes sense, don't worry 
about it too much. Just use the SIN function with the constant that was developed and 
see if the function behaves as predicted. That result is the important part. Will the 
SIN function perform according to plan? 

Try a few experiments and see what values SIN produces: 



Right 
Up - 
Left 
Down 
Back to right 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



SIN(!3) 
SIN(9^ * 
S1N( ISp 
SIN( 27p 
SIN( 360 



.(31 74533 ) 
' .(3174533) 
' .P174533) 
' .(3174533) 



What did you get for each one of these PRINT statements? Did you get 0, 1, 0, 
- 1 , and 0? No!! The SINs of 1 80 ° and 360 ° came out close to zero but were off just a 
bit. Another error caused by precision. 

Try them again with this cunsLaiii: 

.01745329251993889 



A double precision version 
of ihe constant 



Did that constant fix things? Y es, it did. Fof the most part, you can stick with the 
shorter conversion factor. If you want to be precise, use the double precision number. 
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How about trying a few angles in between those already displayed? 



Where are 

these on 

the diagram? 



PRINT SIN(45 * .J3174533) 

PRINT SIN( 135 * . (31 74533 ) 

PRINT SIN(225 * .!3174533 ) 

PRINT SIN(315 * .(3174533 ) 



With the shorter constant the displayed values all look like either .70710Z or 
-70710Z, where the last digit Z is either 5, 6, 7, or 8. The variation is again caused by 
the loss of precision as related to the constant being used. 




An Encouraging Sine 

Trying a bunch of values with the SIN function tells you something about how it 
works. Of course, you could write a small program and have the SIN function plaster 
the screen with a lot of numbers. That exercise would tell you a bit more, perhaps. An 
even better way to examine the function, however, is to plot the results. Here is a small 
program that plots the SIN function on the TRS-80 display: 



1(3)3 REM ** SIN PLOT ** 
11(3 CLS 



Makes a 
nice border 
for the plot 



12(3 REM ** PUT HEADER ON PLOT ** 
13)3 PRINT @985 , "SIN(THETA)" 
14p PRINT @96(3,"-1 " STRINGS$ { 26 , 
STRINGS$(26,".") " +1" 



Aren't we 
precise! ~ 

Plot 

Wait 



15(3 REM ** BEGIN LOOP THRU 36(3 DEGREES ** 

16(3 FOR X = (3 TO 36(3 STEP 3)3 

17(3 REM ** THETA IN RADIANS ** 

18(2 THETA = X * .(31745 3 29251993889 



19(3 REM ** PLOT CENTER LINE ** 
2(3(3 PRINT @99(3/':"; 



21(3 
_22(3 

23(3 
24(3 



REM ** PLOT POINTS ** 
PRINT @96(3+ (SIN(THETA) + 1 )/2*6(3 



NEXT 
GOTO 



X 

24(3 



\ -:What's all 

this? 
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Enter and RUN the program. The screen should show a plot of SIN(theta): 



-1. 



SIN (theta) 




.4-1 



-9 = 0° 



9 = 180° 



• / 

9 = 90° 



\ 

9 = 270° 



~9 = 360° 



Line 220 is the key to this plotting routine. The expression in line 220: 

96P -f (SIN(THETA)4-1 )/2 * 6^ ^ •Willplot61 



location screen 



is used to position the plot symbol (*) across the screen. 

Since SIN(theta) varies from - 1 to + 1 , SIN(theta)+- 1 varies from to 2. Dividing 
this expression by 2 gives a range of values from to 1. Multiplying by 60 and adding 
960 sets up values from 960 to 1020. These last values represent 61 print positions 
across the bottom of the screen. As each line is PRINTed, the screen scrolls upward to 
make room for the next line. 



Back io the Geometry Lesson 



Now that you have the SIN program working, you can easily look at one other trig 
function. Referring back to the diagram: 
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there is a co-relationship of theta, R, and X, called the cosine. The cosine is given by 
the equation: 

COSINE(^) = X/R 

Can you estimate how this function behaves? Why bother! Just make a few adjust- 
ments to the SIN program and let the TRS-80 do it for you. 
Here goes; make the following changes: 



Change the — 
program in 
these two lines 

This expression assumes 
that the COS will be 
in the range of - 1 to + 1 



13p PRINT @985, "COS(THETA)" 
22!3 PRINT @96p+ (C0S(THETA) + 1 )/2*e 



What appears when you RUN this program? Does your screen show: 



COS (theta) 




.+1 



6 = 90° 



e = ]80° 



e = 270°^^ 



* 8 = 0° 



= 360° 



The COS produces the same values as SIN, but everything is /"90 out of phase." 
When the SIN is zero, the COS is either 4- 1 or - 1 . When the SIN is either + 1 or - 1 , 
the COS is zero. In fact, it can be proven (but we won't attempt to do so here) that: 

SIN((9)^ + COS(6')^ = 1 

You may want to write a program that checks out the last statement. Your turn to ex- 
periment. Try some other operations with SIN and COS. 
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Off onaTANgent 

One obvious relationship remains to be explored in our small geometry problem. Since 
the SIN is determined by Y/R and the COS is determined by X/R, there is a third 
expression that doesn't involve R. It can be obtained by dividing SIN by the COS. 
Here is the result: 

SIN(^)/COS(^) = Y/R / (X/R) = Y/X 

nni^ !„ r a: -« ^ :, — :^ IT* A OTiO ^ IP A XT IPl- ^ C^M^n^tt^r^ 

gram tabulates the trig functions from to 80 in steps of ten. 



Program to 
list trig 
functions 




REM ** TRIG FUNCTIONS ** 
1 1 (3 CLS 

12p REM ** HEADER ** 

13(3 PRINT "SIN", "COS", "TAN", "SIN/COS" 
1 4^ PRINT " "," "," "j "--- 

15(3 REM ** BEGIN LOOP THRU ANGLES ** 
16(3 FOR X = (3 TO 8(3 STEP 1(3 

REM ** COMPUTE THETA ** 
TH = X * .131745329251993889 

REM ** DISPLAY RESULTS ** 
PRINT SIN(TH) ,COS (TH) ,TAN(TH) , 
SiN t TM ) /cuS t Th ) 

.^21(3 NEXT X 



Can you think of a reason for the program not looping to 90 ° ? Try to think of what 
would happen, as you enter, RUN, and watch the current program execute. 
Your screen should show: 



SIN cos TAN SIN/COS 

|3 1 (3 (3 



173648 


. 9848p8 


. 1 76327 


. 176327 


342(32 


. 939693 


. 36397 


. 36397 


5 


. 866p25 


. 57735 


. 57735 


642788 


. 766(344 


. 839 1 


. 839 1 


766(344 


.642788 


1 . 19175 


1.19175 


866025 


. 5 


1 .73^25 


1 .73^25 


939693 


. 342(32 


2.74748 


2 . 74748 


9848(38 


. 1 73648 


5.67129 


5.67129 



READY 
>- 
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Ahh! Symmetry and order! Notice how the SIN and COS have the same values, but in 
reverse order. Additionally, SIN/COS is the same as TAN. Maybe that is how the 
TRS-80 generates TAN. The two columns are remarkably the same. Have you 
guessed what would happen if the loop continued to 90° ? The TAN function is grow- 
ing quite rapidly. Yes, TAN goes to infinity at 90 ° ! Why? Look at the COS. At 90 ° , 
the COS is zero, while the SIN has the value one. One divided by zero is ... a big num- 
ber! Could it be that this is where the phrase "off on a tangent" got started? Seems a 
likely coincidence, doesn't it? 

The TRS-80 also provides an inverse trig function called the arctangent, ATN. 
ATN returns a value in radians. To get back to degrees, multiply the result by 
57.29578. For example: 



What do you get when you enter the PRINT statement? Do you get a result of 
80 ° ? The TAN of 80 ° was the last entry in the table on the last page. The TAN of 80 ° 
is 5.67129. The arctangent (inverse tangent) of 5.67129 is, of course, 80°. Ahhh . . . 
the world is full of order and symmetry. 

With these four trig functions — SIN, COS, TAN, and ATN — you can con- 
struct many other trig functions. Appendix F of your Level II BASIC Reference Man- 
ual lists several other trig functions and how to derive them from the four basic func- 
tions. You can even construct the Inverse Hyperbolic Cosecant with a little help from 
the next two mathematical functions. 



Another constant important in mathematics is called e. It is an endless number that 
looks like this: 



TRS-80 BASIC provides a function that allows you to compute powers of e easily. The 
function is called EXP, and EXP(X) represents raising e to the X power: 

EXP(X) represents e" 
To examine the behaviour of EXP, enter and RUN this program: 



Ipp REM ** EXPLORING EXP ** 
1 CLS 

12(3 FOR X = (3 TO 1(3 
13|3 PRINT EXP(X/1S3) 

14p NEXT X 



PRINT ATN(5.67129) X 57.29578 




What is the AnaLOG of "EXPect Little?" 



e = 2.7182818284590452... 
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A RUN of the program should produce this listing on the display: 



1 



1 . ipsi? 

1 .2214 
1 . 34986 
1 .49182 
1 .64872 
1 .82212 
2 . (a i 375 
2 .22554 
2.4596 
2.71828 

READY 

>- 



EXP is exponential in nature. As the argument gets larger, EXP result gets larger as 
well. In fact, EXP gets big fast. If EXP has an argument greater than 87, an ?OV 
ERROR will occur. 

Change line 120 and experiment with other values of EXP. Try some negative 
values. What happens when you put negative values into EXP? Try some large nega- 
tive values. Think about how you could plot EXP on the screen. 

EXP also has an inverse function, the natural logarithm. Let's modify the cur- 



1213 FOR X = 1 TO 1(3 
13S3 PRINT L0G(X/1!2) 



change 



RUN this program and observe the numbers on the screen: 



-2 . 3S3259 
-1 . 612944 
~- 1 . 2 j2 3 9 7 
-.916291 
-.593147 
-.51(3826 
-.356675 
-.223143 
1(3536 

|3 

kEaD I 
>- 



Log^(.l) 



Log,(l) 
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The values of the arguments to LOG must be positive (greater than zero). At 
zero, LOG goes to minus infinity (a large negative number). At one, LOG(l) equals 
zero. As the argument of LOG gets larger, LOG grows, but slowly. 

Once again, try some values for LOG on your own. Look at those cases where the 
arguments get big ( 1 E3 8 ) . Think how you might go about plotting LOG on the screen. 
LOG and EXP are inverse functions. Each is the inverse of the other. Try to prove this 
by entering PRINT EXP(LOG(10)). What happens? Now try PRINT 
LOG(EXP(10)). What happens with this one? Did you get the same answer in each 
case? 



Summary 



You have been exploring the TRS-80 arithmetic functions. These functions assist in 
performing mathematical calculations and doing mathematically based studies. The 
functions you have examined are: 

a CDBL(X) — Converts X to double precision 

" CSNG(X) — Converts X to single precision 

CINT(X) — Converts X to an integer (- 32768 to +32767) 

» SGN(X) — Determines the sign of X 

o ABS(X) — Computes the absolute value of X 

» FIX(X) — Truncates the fractional part of X 

" SQR(X) — Computes the square root of X 

<• SIN(X) — Computes the trigonometric sine of X. 

X must be in radians. If X is in degrees, 
multiply X by .0174533 



o COS(X) — Computes the trigonometric cosine of X. 

X must be in radians 
» TAN(X) — Computes the trigonometric tangent of X. 

X must be in radians 
" ATN(X) — Computes the inverse tangent of X. Answer 

is in radians. To convert to degrees, 

multiply by 57.29578 
« EXP(X) — Computes the exponential e" 

° LOG(X) — Computes the natural logarithm of X, 
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You also saw how you might plot some function, such as SIN or COS, on the TRS-80 
screen by using the function to calculate where the plot points were to fall. Try your 
hand at the self-test that follows. Then move on to the last chapter in the book — a 
chapter of fun and games. 

Self-Test 

1 . What are the names of the functions that convert numbers or expressions to: 
(a) Double precision (b) Single precision . 

(c) Integers 

2. If the variable A# = 2.7182818282845, what would show on the screen when 

you type: print csng(a#) (a) 

What appears when you type: print cint(a#) (b) 

3. If the following line is in a program, how would you change it so the program ex- 
ecutes faster? 

12!^ A% = B# * C# 

4. What appears on the screen when you type these statements into your TRS-80? 

(a) PRINT SGN(15.5) (b) PRINT SGN(-12) 

(c) PRINT SGN(!3) . 

5. What does this statement display on the screen? 

PRINT ABS(-17.7) 

6. How is the FIX function different from the INT function? 



7. What does the TkS-80 give for: 

PRINT SQR( 16) , 16t( 1/2) 
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8. What is the factor that converts angles in degrees to radians? 

9. What is the factor that converts radians into degrees of angle? 

10. What does the following PRINT statement produce on the screen: 

PRINT EXP(LOG{2!2) ) , LOG { EXP ( 2!3 ) ) 
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Answers to Self-Test 

1. (a) CDBL (b) CSNG (c) CINT 

2. (a) 2.71828 (b) 2 

3. Oneway: 120 a% = cint(b#) * cint(c#) if the integer values are in the 
range of -32768 to 326767. 

Another way: I2j3 a% = csng(b#) * csng(c#) 

4. (a) ! (b) -1 (c) n 

5. 17.7 

6. FIX truncates the fractional part of the number and returns the integer portion. 
INT truncates the fractional part, but returns greatest integer less than the orig- 
inal value. So, for negative numbers FIX(-7..5) returns -7; INT (-7.5) returns 
-8. 

7. Two numbers; both 4. SQR(16)=4, and 161(1/2) is an alternate way to compute 
the square root. 

8. .0174533 or .01745329251993889 to be precise. Actually, even the last number 
is not precise; there is more. The factor goes on forever. 

9. 57.29578 — multiplying Iw times the number gives 360. 

1 0. The screen shows the number 20 printed twice. The LOG and EXP functions 
are inverses of each other so the expressions in the PRINT statement return the 
argument 20. 



CHAPTER TWELVE 

TRS-80 Art Lesson 



You are nearly to the end of this book. Time to relax and use some of your TRS-80's 
features you have been reading about. Since the graphics on the TRS-80 are so easy to 
work with, let's begin by creating an animated Valentine's Day card for your mate or 
companion. 

Electronic Love Notes 

Your machine's graphic features can produce an animated version of a Valentine's 
Day card. Start by building the main program; a series of GOSUBs to routines to 
draw the card's border, scroll the message across the face of the card, draw some 
hearts, shoot arrows, and cause other messages to flash. (We bet no one has ever re- 
ceived a card like this before.) Here is the main program: 

REM ** VALENTINE'S CARD ** 
REM ** MAIN 'PROGRAM ** 

REM ** CLEAR SCREEN AND CLEAR ** 
REM ** SOME STRING SPACE ** 
CLS 

CLEAR 3j3j2l 



REM ** PUT THE BORDER ON THE SCREEN ** 
GOSUB Ippp 

REM ** PAINT A WINDOW ON THE CARD ** 
REM ** AND SCROLL A MESSAGE ** 
GOSUB 2j2(3!3 

REM ** PUT TWO HEARTS ON THE CARD ** 
GOSUB 3j3j3!3 

REM ** SHOOT AN ARROW ACROSS THE ** 
REM ** CARD AND FLASH MESSAGES ** 
GOSUB 4ppj2l 



Clear 300 bytes 



Subroutines 
will do it 
all! 



12Ji 

13); 
i4j; 

1 

in 

22G 



23); 
24!i 
251; 



251 
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To close off the main part of the program, a delay routine is called and the program 
redisplays the card. 

26^ REM ** WAIT AND THEN RE-DISPLAY ** 

Wait a while .. . b» 27p t = ipjai?: gosub spsajsi 

28(3 GOTO 14R 

Now let's develop the routine to draw the border. The statements used are taken from 
several previous discussions in this book dealing with the rapid placement of graphic 
characters on the screen. 



Solid bars 
across the top 
and bottom 



1 om sinps 

down the sides 



REM ** OUTLINE THE SCREEN ** 
REM ** TOP AND BOTTOM FIRST * 

j32|3 PRINT @j2,STRING$(64, 191 ) ; 

!33!3 PRINT @896, STRING$ ( 64 , 1 9 1 ) ; 

!34!? REM ** NOW THE TWO SIDES ** 

(25i3 FOR I = 64 TO 832 STEP 64 

^6" PRINT@I ,CHR$ ( 191 ) ; -s 

!37p PRINT@I + 63, CHR$(191);-, 

!38jJ NEXT I 



Right 



1(39!3 RETURN 



Check this portion of the program by entering "dummy" routines for the rest of 
the subprograms to be developed. Type in the delay routine directly since you know 



Count up to 
T 



3!3p(3 RETURN 
4J3PS2I RETURN 



■ "Dummy" routines 



5j3!3)3 REM ** DELAY ROUTINE ** 

5(3 1(3 FOR TT = 1 TO T 

5!32!2 NEXT TT 

. 5(33(3 RETURN 



RUN this partially completed program. Your screen should show: 
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Now you are ready to enter the next routine — the one to open a window area on the 
card and scroll a message across the window. 
Enter the following statements: 



2(3(312 REM ** WINDOW AND MESSAGE SCROLL ** 
2p1(3 REM ** PAINT THE WINDOW ** 
Window 2(32(3 PRINT @267, STRING$ ( 38 , 1 9 1 ) ; 



37 , followed by 
message and six 
more 



You did 
this 
in chapter 10 



2(33(3 REM ** SET UP THE MESSAGE ** 
-e- 2|24(3 A$= STRINGS(37, 191 ) + 

"... HAPPY VALENTINE'S DAY ..." + 
STRINGS (6, 191 ) 

2(35(3 REM ** SCROLL THE MESSAGE TWICE ** 
2p6!3 REM ** HORIZONTALLY ACROSS SCREEN ** 
207(3 FOR K = 1 TO 2 



2(38(3 I = 1 

2(39(3 PRINT@267, MID$ ( A$ , I , 38 ) ; 
21(3(2 T = 25: GOSUB 5(3(313 
21 1(2 1 = 1+1 

212(3 IF I<= LENCA$) THEN GOTO 2(39(; 

213(3 NEXT K 



214(3 REM ** PUT MESSAGE IN CENTER 
215(2 REM ** OF THE WINDOW ** 
216(3 PRINT@267, MID$(AS,32); 



217(3 RETURN Begins with 32nd 

character and takes 



rest of message 



Go ahead and RUN this much of the program. The screen should clear, the bor- 
der should appear, then the window, and finally the Valentine's Day message should 
scroll from right to left on the face of the window. 
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Easy enough? You are simply combining several features used in previous chapters. 
Ready for the next part? O.K. how about the routine that draws the hearts? 
Enter these next statements and RUN the new program: 




REM ** DRAW TWO HEARTS ** 
REM ** DATA VALUES FOR SPOTS ** 
REM ** TO BE SET ** 
DATA 2 1 , 22 , 1 9 , 2 1 , 1 7 , 2!3 , 1 5 , 2|3 , 1 3 , 2(2 
DATA 11,21,9,22,9,23,9,24,9,25 
DATA 11,26,13,27,15,28,17,29,19 
DATA 2 1,31,23,30.25.29,27,28,29 
DATA 3 1,26,33,25,33,24,33,23,33 
DATA 3 1 , 2 1 , 29 , 2p, 27 , 20 , 25 , 2p , 23 
DATA -99,-99 



,313 
,27 
, 22 
, 2 1 



What is XINC 



3 1!3|3 REM ** READ THE PAIRS OF DATA ** 
3 110 READ X , Y 

3 120 REM ** CHECK FOR END OF DATA ** 
3 130 IF X= -99 THEN GOTO 3 180 



Sets XINC so 
that X+XINC 
nuts bf^f! ft on 
right side of 



3150 SET(X+XINC,Y) : SET { X+XINC~ 1 , Y ) 
3 160 GOTO 3 110 

3 170 REM ** CHECK. TO SEE IF COMPLETE ** 
3180 IF XINCO0 THEN RETURN 

3 190 REM ** ONE HEART DRAWN ** 

3200 REM ** ADJUST XINC AND DRAW 2ND ** 

32 10 XINC = 78 

3 22y} KKSTOKK 
3 2 30 GOTO 3 110 
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The DATA values in the last subroutine provide the locations of the various 
spots used to create one heart diagram. The heart on the left side of the card is drawn 
first. Then the variable XINC is changed from zero (0) to 78, the DATA statements 
are RESTOREd, and the second heart appears. When the second heart is complete, 
XINC is non-zero, and a RETURN is made to the main program. 

Are you ready for the grand finale? Yes!! Well, here goes! Enter the statements 
for the last subprogram and RUN the complete Valentine's Day Card program: 



4!3J2|2 REM ** SHOOT AN ARROW ** 
4p1!3 REM ** AND FLASH THE MESSAGES ** 
4!32j3 REM ** THIS IS AN ARROW ** 
4p3j3 B$ = " >" 

4p4j3 .REM ** SHOOT THE ARROW THREE TIMES ** 
4p5p FOR K = 1 TO 3 



Animation of 
arrow 



Takes care of 
printing and 
flashing 
the messages 



4!36;3 
4p7)3 
4080 



4(39(3 
41(3(3 
41 1(3 

412(3 
413(3 

414(3 
415(3 
416(3 
417(3 



4T8f 
419(; 
42!3p 
421(i 
422(i 

423(; 
424Q 



425(2 

426(3 
427(3 



REM ** ARROW DISPLAY LOOP ** 
FOR I = (3 TO 19 

PRINT@529, STRINGS {I,32)+B$; 

REM ** TEST FOR FIRST TIME ** 
REM ** THRU K LOOP ** 
IF K = 1 THEN GOTO 423(3 

REM ** DISPLAY LOVE MESSAGE ** 
PRINT(a7 24,"I LOVE Y U" ; 

REM ** WHEN I IS GREATER THAN ** 
REM ** TEN, FLASH THE LOVE NOTE ** 
IF I>1(3 THEN T=5(3: GOSUB 5(3(3(3 
IF I>1(3 THEN PRINT @274, 
STRINGS (2(3, 3(3) ; 

REM ** IF I IS GREATER THAN ** 
REM ** TEN, AND THIS IS THE ** 
REM ** THIRD ARROW SHOT, FLASH ** 
REM ** THE TOP MESSAGE ALSO ** 
IF I>1(3 AND K=3 THEN PRINT@267 , 
STRINGS (4(3, 32) ; 
T = 5(3: GOSUB 5(3(3(3 
IF I>1(3 AND K=3 
MIDS ( A$ , 32 ) ; 

NEXT I 



TP <i PRINT@267 , 



REM ** BLANK OUT ARROW ** 
PRINT@548, STRINGS (6, 32) « 



428(3 
429(3 



NEXT K 
RETURN 
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The arrow flashes across the screen from heart to heart. When it hits the first time, the 
message I LOVE YOU appears near the bottom of the card. As the arrow gets half- 
way across on its second pass, the love message begins to flash. On the third pass of the 
arrow, both the love message and the message at the top of the screen begin to flash. 
Now, that's a Valentine's Card! If you have friends who own computers, you can make 
up cassettes during holiday seasons or on special occasions and send everyone a TRS- 
80 electronic greeting card. Enjoy using your TRS-80 in this way. 




Oh, yes! The kinds of routines used in making this card can also be used in programs 
and games that you develop. The border display, Uic scrolling icaturc, Liic fiasiiiug 
messages, the animated arrow, and the drawing of the hearts indicate the many meth- 
ods of display you can use on your computer. Think of other things you can do with 
these features. What kind of games and programs can you invent to use the TRS-80 
this way? 



Let's Get to the POINT 

Have you had a chance to use the POINT function yet? If not, try the following: 

Where does the cls 

TRS-80 POINT to? print point ( 3 p , 4^ ) 
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What now shows on your screen? Does it look like this? 



r 



Returns with 
a zero! 



READY 

>PRINT POINT (3(3, 4(3) 

READY 
>- 



Now, enter these statements and observe the screen: 



Hmmm . . . 



CLS 

SET( 3!3,4!3) : PRINT POINT ( 3(3 , 4(3 ) 



What does your screen show now? Is this what appears: 



r 



READY 

>SET(3!3,4!3) : PRINT POINT { 3(3 , 4!3 ) 



Now it gives 
-1 



-1 

READY 



Can you guess what POINT is doing? The function "looks" at the place on the screen 
specified by the arguments: 



If that spot on the screen is SET, then POINT returns the value —1. If the spot is not 
SET, POINT returns a value of zero (0). For the TRS-80, the values of -1 and rep- 
resent the logical values of "true" and "false." Minus one (-1) indicates that a condi- 
tion is true; zero (0) indicates that a condition is not true, or false. This set of facts al- 
lows you to put the POINT function in an IF-THEN statement and perform some 
interesting feats. 




1(3(3 IF P0INT(X,Y) THEN GO TO 1(3(3p 



If the spot is SET, the 
program branches 
to line 1000 
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As an example, let's develop a program that uses POINT to determine if the 
screen is SET and if the program is to RESET that spot. To get interesting results, use 
a random process for determining where the next spot is to be RESET. Hmmm . . . 
seems as if another TRS-80 first is about to happen in the computer world. 

The Finer Art of POINTing 
Here is the first part of the program: 

1pS3 REM ** TRS-8j3 ART ** 

11)3 REM ** CLEAR SCREEN AND STRING SPACE ** 
12(3 CLS 

130 CLEAR Ipp 

14|3 REM ** SET ON ERROR CONDITION ** 
15(21 ON ERROR GOTO 1 (3pp 



16,0 REM ** PATNT THF SCRKF.N WHITE ** 
17(3 FOR I = (3 TO 896 STEP 64 
18(3 PRINT@I , STRING$(64, 19 1 ) ; 
_19|3 NEXT I 

1(3(3(3 RESUME Foi the ON ERROR 

routine 

■farsthina p-necifll iin to this POINT foons! . . rsointV The ON ERROR condition takes 
care of a problem you will encounter later as the POINT routine tries to "look" off the 

RUN this part. The screen should turn white, and then an error should occur 
(when the RESUME is encountered), but ON ERROR the program goes to 1000. 
That place in the program is causing the error, so the result is like putting 1000 GOTO 
1000 in the program. Anyway, the screen turns white. What's next? 

Now add this part of the program that performs the random RESET of the spots 
on the screen: 

2(3(3 REM ** START NEAR THE MIDDLE ** 
21(3 X = 63 : Y = 23 
■-8 22(3 RESET (X,Y) 

23(3 REM ** PICK A RANDOM DIRECTION ** 
24(3 REM ** TO POINT ** 
25(3 R = RND(8) 

on the edge of the white area). The locations are numbered in this way. You could 
change this assignment; me numbering is arbitrary. 



Remember this 
feature? 

You've done — 
this before 
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Current location 




2 



Possible directions 



The next step is to POINT at the randonaly chosen location, and if it is SET, to 
RESET it. 

Enter the following: 



26f 
27C 



REM ** SAVE THE CURRENT LOCATION ** 
XX = X: YY = Y 



Takes care of 
right-left ~ 

Takes care of 
up-down 



28(3 REM ** ADJUST X , Y TO POINT AT SPOT ** 

29(3 REM ** CHECK FOR SPOT ON RIGHT ** 

3(3(3 IF R<4 THEN X = X + 1 

31|3 REM ** CHECK FOR SPOT ON LEFT ** 

32(3 IF R>4 AND R<8 THEN X = X - 1 

3 3(3 REM ** CHECK FOR UP * * 

34(3 IF R>2 AND R<6 THEN Y = Y - 1 

35(3 REM ** CHECK FOR DOWN ** 

36(3 IF R>6 OR R=1 THEN Y= Y + 1 



The adjustments to X and Y can produce values that are off the screen. The ON 
ERROR statement that was used in line 150 lets the program POINT off the screen 
and not abort the program. 

Here is the POINT you have been waiting for: 

Yes, we skipped — 38(2 rem ** check to see if spot is set ** 

39p if P0INT(X,Y) THEN GOTO 22(3 

4(3(3 REM ** SPOT NOT SET, CHOOSE ANOTHER ** 

41(3 REM ** RESTORE X AND Y ** 

42(3 X = XX: Y = YY 

43(3 GOTO 25(3 

1(3(3(3 RESUME 42(3 

Run this program. The screen should turn white; then a series of small black 
holes should start to appear. The "pictures" sketched on the screen will probably never 
be the same because of the random way the spots are chosen and RESET make each 
"drawing" unique. Here are a few examples of designs we produced: 



Change line 1000 
also 
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Notice that the POINTing process often causes the program to be at a location where 
all the surrounding spots are already RESET. The program then enters a loop from 
which it never exits: choosing a random spot, pointing at it, finding it RESET, and 
going back to choose another random spot. Hitting the BREAK key stops the program 
so you can re-RUN it to produce another sketch. Would you like to "move" the cur- 
rent spot v/hen the program gets into a loop? Very well; try these additions. 



Your Move, Leonardo 

The oniy piace a message can be piaced on the screen and not disturb the drawing is on 
the bottom line. Using PRINT @ allows a message to be put there without causing the 
screen lo scroll upward. To prevent scroiiing upon INPUT, a clever use of iNKEYS 
has been devised. 

Enter the following: 



Here is line 370 



-e- 37(21 IF INKEy$- 



" THEN SC 



Pressing any key will 
interrupt the program 
now 



Spp REM ** ACCEPT CHANGES TO X AND Y ** 

51j2 REM ** FIRST REQUEST X CHANGES ** 

52J2 PRINT @96!3, "ENTER X'S MOVE(+ OR -)"; 

530 REM ** USE SUBROUTINE TO ACCEPT INPUT ** 



55(3 REM ** INCREMENT IS IN A ** 
560 XX = XX + A 



57|2f REM ** Y CHANGE REQUEST ** 

58(2 PRINT i@i96(a, "ENTER Y'S MOVE(+ OR — )' 

59(3 GOSUB 2(3(3(2 

610 GOTO 420 
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The subroutine at line 2000 takes care of Accepting the INPUT to the model. 
Here is that routine: 



Accepts data - 
one character 
at a time 



2pj3(3 REM ** INPUT SCAN ROUTINE ** 

2!31!3 REM ** CLEAR STRING VARIABLES ** 

2S3213 A$ = " " : B$ = " " 

2S33!3 REM ** BEGIN KEYBOARD SCAN ** 

2040 BS = INKEY$: IF B$=" " THEN 2040 



2050 REM ** CHARACTER PRESSED ** 
2060 REM ** CHECK FOR ENTER- KEY ** 
2070 IF B$=CHR$(13) THEN GOTO 2170 



Forms a long 
string out of 
inputs 

Converts the 
string to a 
number 



2080 REM ** PUT CHARACTER ON SCREEN ** 
2090 PRINT B$; 

2100 REM ** ADD CHARACTER TO STRING ** 
2110 A$ = A$ + B$ 

2120 REM ** CLEAR B$ AND GO GET ** 
2130 REM ** NEXT CHARACTER ** 
2140 B$ = " " 
2150 GOTO 2040 

2160 REM ** CONVERT TO NUMBER ** 
2170 A = VAL(A$) 

2180 REM ** CLEAR PRINT AREA ** 
2190 PRINT @960, STRING$ ( 30 , 32 ) ; 



2200 RETURN 



When the program POINTs itself into a corner, press any key. The X-change message 
appears at the bottom of the screen. As you press the number keys, they are displayed 
on the same line, but-when you press ENTER, the screen does not scroll upward. The 
Y-change message appears next. You can enter either positive or negative increments 
to move the current spot. RUN this altered program. Here are some more examples of 
the "art" produced by this program: 
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You can tell the program to move the spot off the screen. If you do so, just press 
ENTER again and have it move it back. For example, let's say you are at the right 
edge and enter a 30 for the X= change. The X address is now 1.57 (127 + 30). The 
program just goes into a loop. Press ENTER, and at the X-change request type in 
-60. The X address is nov/ 97 (1 .57-60). Giving it a value for the Y-change (which 
can be zero), causes the program to resume sketching in the white area of the display. 
Try telling the program to sketch off the screen, and then tell it to move back. Try 
other expcniricnts of your own. 



Experimental Art 

You may want to try some other experiments with the TRS-80 Art Program. What 
happens in lines 300 through 360 when you change the increments (+1 and —1) by 
which X and Y move? For example, what do you suppose happens when the X incre- 
ments are set to +2 and -2 in lines 300 and 320? Here is a picture of the spots that are 
RESET. 



Current location 



-1 



+2 
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What would occur if only line 300 is changed? Again, here is a diagram of what 
spots are RESET: 



Current location 



-1 


5 




3 




6 




2 


+1 


7 


8 


1 




-1 


+2 





Try these experiments. You niiight want to alter the program so that the incre- 
ments are INPUT to the program. Doing so gives you more freedom in trying sets of 
values to see how the program responds. Experiment away! For your convenience, the 
Valentine's Card and TRS-80 Art Programs are listed on these final pages. Enjoy us- 
ing them and your TRS-80 microcomputer. 

Valentine's Card Program 



1(3(3 REM ** VALENTINE'S CARD ** 
11(3 REM ** MAIN PROGRAM ** 

12(3 REM ** CLEAR SCREEN AND CLEAR ** 

13(3 REM ** SOME STRING SPACE ** 

14(3 CLS 

15(3 CLEAR 3(2(3 

16p REM ** PUT THE BORDER ON THE SCREEN ** 

17(3 GOSUB 1!2lp(3 

18(3 REM ** PAINT A WINDOW ON THE CARD ** 

19(3 REM ** AND SCROLL A MESSAGE ** 

2(3(3 GOSUB 2(3(3(3 

21(3 REM ** PUT TWO HEARTS ON THE CARD ** 

22(3 GOSUM 3(3(3(3 

2 3(3 REM ** SHOOT AN ARROW ACROSS THE ** 

24(3 REM ** CARD AND FLASH MESSAGES ** 

25(3 GOSUB 4(3(3(3 

26(3 REM ** WAIT AND THEN RE-DISPLAY ** 

27(3 T = 1(3(3(3: GOSUB 5(3(3(3 

28(3 GOTO 14(3 

1(3(3(3 REM ** OUTLINE THE SCREEN ** 

1(31(3 REM ** TOP AND BOTTOM FIRST ** 

1(32(3 PRINT @(3,STRING${64, 191 ) ; 

1(33(3 PRINT @896, STRING$ ( 64 , 1 9 1 ) ; 

1(34(3 REM ** NOW THE TWO SIDES ** 
1(35(3 FOR I = 64 TO 832 STEP 64 
1(36(3 PRINT@I, CHR$(191); 
1(37(3 PRINT@I + 63, CHRS ( 1 9 1 ) ,- 
1(38(3 NEXT I 



1(39(3 RETURN 
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2f3!2p REM ** WINDOW AND MESSAGE SCROLL ** 

2|31!3 REM ** PAINT THE WINDOW ** 

2^2fl PRINT @267, STRING$ ( 38 , 1 9 1 ) ; 

2(33(3 REM ** SET UP THE MESSAGE ** 

2p4(3 A$ = STRING${37, 191 ) + 

". . .HAPPY VALENTINE'S DAY..." + 
STRING$(6, 191 ) 

2(35(3 REM ** SCROLL THE MESSAGE TWICE ** 

2(36(3 REM ** HORIZONTALLY ACROSS SCREEN ** 

2(37p FOR K = 1 TO 2 
2(38(3 I = 1 

2(39(3 PRINT@267, MID$ ( A$ , 1 , 38 ) ; 
21(3(3 T = 25: GOSUB 5(3(3(3 
2 1 1 (3 1 = 1+1 

212(3 IF 1<= LEN{A$) THEN GOTO 2(39(3 

2 13p NEXT K 

214(3 REM ** PUT MESSAGE IN CENTER ** 

2 15(2 REM ** OF THE WINDOW ** 

2 17(3 RETURN 

3(3(3(3 REM ** DRAW TWO HEARTS ** 

3(31(3 REM ** DATA VALUES FOR SPOTS ** 

3(32(3 REM ** TO BE SET ** 

3p3(3 DATA 2 1,22,19,21,17,2(3,15,2(3,13,2(3 

3(34(3 DATA 1 1,21,9,22,9,23,9,24,9,25 

3(35(3 DATA 11,26,13,27,15,28,17,29,19,3(3 

~> nr n mr. 11 T-i -IT Tr^ -iC "ir^ -iT Tn Trt T"7 

3(37(2 DATA 3 1,26,33,25,33,24,33,23,33,22 

3(38(2 DATA 3 1 , 2 1 , 29 , 2(3 , 27 , 2p , 25 , 2(3 , 23 , 2 1 

3(3912 DATA -yy,— yy 

3 1(3(2 REM ** READ THE PAIRS OF DATA ** 
3 1 1 (2 READ X , Y 

3 12(3 REM ** CHECK FOR END OF DATA ** 

3 13(3 IP X= -99 THEN GOTO 3 18(2 

3 14(3 REM ** SET TWO POINTS ** 

315(3 SET(X+XINC,Y) : SET ( X+XINC- 1 , Y ) 

3 16(3 GOTO 31 1|3 

3 17(3 REM ** CHECK TO SEE IF COMPLETE ** 

3 18(3 IF XINC <>(3 THEN RETURN 

3 19(3 REM ** ONE HEART DRAWN ** 

3 2p(3 REM ** ADJUST XINC AND DRAW 2ND ** 

32 1(3 XINC = 78 

3 22(3 RESTORE 

323(3 GOTO 3 11(3 

4(3(3(3 REM ** SHOOT AN ARROW ** 

4(21p REM ** AND FLASH THE MESSAGES ** 

4p2(2 REM ** THIS IS AN ARROW ** 

4(23(2 B$ = " >" 

4(34(3 REM ** SHOOT THE ARROW THREE TIMES ** 

4(35(2 FOR K = 1 TO 3 

4p6p REM ** ARROW DISPLAY LOOP ** 
'iyj/yj r UK x — y> lu I y 

4(28(2 PRINT@529,STRING$(I,32)+B$; 
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4(39)2 REM ** TEST FOp FIRST TIME ** 

4^^l^ REM ** THRU K LOOP ** 

411(3 IF K = I THEN GOTO 423p 

412(3 REM ** DISPLAY LOVE MESSAGE ** 

4 13(3 PRINT@724," I LOVE YOU "; 

414(3 REM ** WHEN I IS GREATER THAN ** 

4 15)3 REM ** TEN, FLASH THE LOVE NOTE ** 

4 16(3 IF I>ip THEN T=5(3; GOSUB 5(3(3)2 

417(3 IF I>1(3 THEN PRINT@274, 

STRINGS (2(2,32) ; 

4 18(3 REM ** IF I IS GREATER THAN ** 

419(3 REM ** TEN, AND THIS IS THE ** 

42(3(3 REM ** THIRD ARROW SHOT, FLASH ** 

42 1(3 REM ** THE TOP MESSAGE ALSO ** 

422(3 IF I>1(3 AND K=3 THEN PRINT @267 , 

STRINGS (4(3 , 32) ; 

423(3 T = 5p: GOSUB 5(3(3(3 

424(3 IF I>1(2 AND K=3 THEN PRINT(@267 , 

MID$ ( A$ , 32 ) ; 

425(3 NEXT I 

426(2 REM ** BLANK OUT ARROW ** 
427(3 PRINT@548,STRINGS(6,32) ; 

428(3 NEXT K 

429(3 RETURN 

5(3(2(3 REM ** DELAY ROUTINE ** 

5(21(3 FOR TT = 1 TO T 

5(22(2 NEXT TT 

5(23(3 RETURN 



TRS-80 Art Program 



1(20 REM ** TRS-8(2 ART ** 

11(2 REM ** CLEAR SCREEN AND STRING SPACE ** 

12(2 CLS 

13(3 CLEAR 1(3(2 

14(2 REM ** SET ON ERROR CONDITION ** 

15(3 ON ERROR GOTO 1(2(3(3 

16(3 REM ** PAINT THE SCREEN WHITE ** 

170 FOR I = (2 TO 896 STEP 64 

18(2 PRINT@I, STRINGS (64, 191 ) ; 

19(2 NEXT I 

200 REM ** START NEAR THE MIDDLE *** 

210 X = 63: Y = 23 

220 RESET(X,Y) 

230 REM ** PICK A RANDOM DIRECTION ** 

240 REM ** TO POINT ** 

250 R = RND(8) 
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26R REM ** SAVE THE CURRENT LOCATION ** 

27|2I XX = X: YY = Y 

28^2 REM ** ADJUST X,Y TO POINT AT SPOT ** 

29(3 REM ** CHECK FOR SPOT ON RIGHT ** 

3!2!3 IF R<4 THEN X = X + 1 

3 1!3 REM ** CHECK FOE SPOT ON LEFT ** 

32(3 IF R>4 AND R<8 THEN X = X - 1 

3 3(3 REM ** CHECK FOR UP ** 

34(3 IF R>2 AND R<6 THEN Y = Y -1 

35(3 REM ** CHECK FOR DOWN ** 

36(3 IF R>6 OR R= 1 THEN Y=Y + 1 

37pi IF INKEY$<>"" THEN 5^(3 

38(3 REM ** CHECK TO SEE IF SPOT IS SET ** 
39)3 IF POINT(X,Y) THEN GOTO 22(3 

4(3(3 REM ** SPOT NOT SET, CHOOSE ANOTHER ** 
41)3 REM ** RESTORE X AND Y ** 
42(3 A — XX: Y = Y" 
43(3 GOTO 25^ 

5^(3 REM ** ACCEPT CHANGES TO X AND Y ** 

51(3 REM ** FIRST REQUEST X CHANGES ** 

52(3 PRINT @96(3, "ENTER X'S MOVE(+ OR -)"; 

5 3)3 REM ** USE SUBROUTINE TO ACCEPT INPUT ** 

54)3 GOSUB 2)3(3(3 

55(3 REM ** INCREMENT IS IN A ** 

560 XX = XX + A 

57(3 REM ** Y CHANGE REQUEST ** 

58(3 PRINT @96(3, "ENTER Y'S MOVE(+ OR -)"; 

59(3 GOSUB 2(3(3(3 

6(3(3 YY = YY + A 

61(3 GOTO 42(3 

1(3(3(3 RESUME 42(3 

2(3)3)3 REM ** INPUT SCAN ROUTINE ** 

2(31(3 REM ** CLEAR STRING VARIABLES ** 

2(32(3 A$ = " B$ = " " 

2(33(3 REM ** BEGIN KEYBOARD SCAN ** 
2(34(3 B$ = INKEYS: IF B$=" " THEN 2(34p 

2(35(3 REI-I ** CHARACTER PRESSED ** 
2)36)3 REM ** CHECK FOR ENTER-KEY ** 
2p7p IF B$=CKR$(13) THEN GOTO 2 17)3 

2CI8(! REM ** PUT CHARACTER ON SCREEN ** 

2(39(3 PRINT B$ ; 

21(3(3 REM ** ADD CHARACTER TO STRING ** 

2 1 1(3 A$ = A$ + B$ 

2120 REM ** CLEAR B$ AND GO GET ** 

214(3 B$ = 

2 15p GOTO 2p40 
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216|3 REM ** CONVERT TO NUMBER ** 
2 1 7(3 A = VAL(AS ) 

2 18(3 REM ** CLEAR PRINT AREA ** 
219(3 PRINT @96(3, STRING$ ( 3(3 , 3 2 ) ; 



22(3(3 RETURN 
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Summary 

In this final chapter, you have explored combining several features of your TRS-80 
(graphics, animation, and scrolling) into larger programs and you have used the 
POINT function, perhaps for the first time. 

If you have worked your way through both books in this series, you have nov/ 
covered nearly every BASIC language statement and function listed in your TRS-80 
Level II BASIC Reference Manual. The TRS-80 computer contains many useful fea- 
tures that allow you to build clever and sophisticated programs. The use of the screen 

!• . t .,1-_..Ji:^~ a: ^ aTU^/i*— ;*.<^ n n^A fmll ^ty-nf^a r\f rMO ill A- 

graplllCS, Liicciiui imimiiiig iuui.in<Ja, emus n*jivii<j«xo, ..»»w xi*.. .c^^.^w ... 

matical operations make the TRS-80 one of the most powerful small computers on the 
market. We trust that these books have assisted you in using some of that power and 
ability. Thank you for joining us in these explorations. 
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A cassette recorder is provided with the basic TRS-80 system for saving and loading 
programs that you write. It also is used to load taped programs that you acquire from 
other sources. 

Level II BASIC transfers data from the recorder to the computer (and vice 
versa) at a rate of 500 BAUD (twice the speed of Level I). The volume setting on the 
recorder is very critical and should be set at a lower setting for Level II tapes than for 
Levei i. v olume bcLUiigs aicuiscusscu iii iViorc GCtaii later in Lr>;3 appcndiA. 



If you have a program in the computer's memory that you would like to save for future 
use, the recorder must be connected as described in your Level II BASIC Reference 
Manual, "Setting up the System." 

1 . Put the recorder in the RECORD mode by pressing down both RECORD and 
PLAY buttons. Use a volume setting approximately midway (about 4 on the 
Radio Shack CTR-80 recorder). 

The command CSAVE followed by a file (or program) name is used to record pro- 
grams on tape from the computer's memory. The file name may be any alphanumeric 
character except quotation marks. The name is enclosed in quotes. 

Examples: CSAVE "1" 
CSAVE "A" 

You should always write file names on the cassette case for later reference. It is 
also helpful to write the index setting (of the recorder) along with the file name so that 
the program can be found quickly in the future* 



270 
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2. On the computer, now type: 

csAVE "A" OR whatever file name 

you want to use 

and press the ENTER KEY. 

The recorder motor should be automatically started by the computer, and the 
program is then recorded. After the recording is completed, the computer will turn off 
the recorder (hopefully— see "Recorder Problems" in this appendix). The READY 
message will be displayed on the screen. 

CSAVE "A" 

READY 

>- 

It is a good idea to CSAVE a program more than once on the same tape in case some- 
thing should happen to one copy. This can be done by leaving the recorder in the 
RECORD mode and typing: 

CSAVE "A" and pressing the ENTER key again. 

Once again the computer starts the recorder motor, records the program, and 
turns the recorder motor off. The READY message is again displayed on the video 
screen. When finished, press the STOP button on your recorder. 

Checking Recorded Programs 

After recording a program, it is advisable to immediately check the recording while 
the original program is still in the computer's memory. Then, if there was an error in 
the recording, the original can be recorded again. This check can be made by following 
these steps: 

1 . Rewind the cassette to the point where the recording of your program started. 
REWIND and FAST-FORWARD on the CTR-80 are not under remote control. 
Press the REWIND button until the tape has been rewound to the desired 
position. 

2. Press the PLAY button on the recorder. 

3. On the computer, type: 

CLOAD? "A" and press the ENTER key. 

Note the ? mark Or whatever file 

name you are using 

The computer will then compare the tape recording with the original program in the 
computer's memory. If there are any discrepancies, the message: BAD will be dis- 
played on the video screen. In that case, you should CSAVE the program again. If the 
tapes match Correctly, the recording was good, and the READY message is again dis- 
played. 
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GOOD RECORDING 

CLOAD? "A" 

READY 

>- 



BAD RECORDING 

CLOAD? "A" 
BAD 
READY 
>- 



Loading Taped Programs 

The volume setting recommended by Radio Shack for loading cassette tapes on a 

T ITT J. rf^TPT* OA ^^n^«,4'^« J,-, n m^^f^tr^t^ri^f^l^ r A 

JUCVCl 11 b_y&L01il Willi tllC X IX-OU Lapv 1**^1 id cippi v>/xi«*icti.\^xj 

For prerecorded tapes by other manufacturers, you will probably have to experiment 
to find the volume setting at w^hich they will load correctly. (See "Recorder Problems" 
in this appendix for help.) 

To transfer a prerecorded program to the computer's memory: 

^ . . 1 , J j: 1 : T 1 TT r> _c 

1. t^onneci inc rccuiucr as uisv;usscu ui yuui i^cvci ix ivoit.n..iivi.. iYiaiiuai. 

2. Insert the cassette containing the prerecorded program and rewind the cassette to 
the beginning of the desired program. 

3 . Press the PLAY button on the recorder. 

4. On the computer, type: 



the program that you 

and press the ENTER key. 

The computer turns on the recorder's motor. After a few seconds, two asterisks should 
appear in the upper right corner of the screen. The right asterisk should blink (usually 
at an irregular rate). When the program has been completely transferred, the com- 
puter stops the recorder's motor and gives its READY message on the screen. 

CLOAD "A" 

READY 

>- 

If ail went well, turn off the recorder. The program is loaded. Type: 



Happy computering!! 



RUN 
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Recorder Problems 

The audio cassette recorder provides an inexpensive means to store programs and data 
files outside the computer. Keep in mind that the recorder was not originally designed 
for this purpose. It is a cheap alternative to floppy disk drives. Although far from per- 
fect, it does beat loading programs from the keyboard each time that you want to use 
them. 

Use of the tape recorder for digital purposes requires great patience, understand- 
ing, and care. Here are some problems that you may encounter, and some suggestions 
that may prove helpful. You may not agree with all of them. 

— Use high-quality, certified digital tapes. Poor-quality audio tapes may have imper- 
fect magnetic coatings with some spots that would be undetectable when playing 
music or voices. However, a loss of one bit of data during the save or load of digital 
data may spoil a good program. Radio Shack recommends its special 10 minute 
per side computer tape cassettes. 

— Keep the heads of your recorder clean and demagnetized. Special tapes are avail- 
able that can quickly be "run through" the recorder to clean or demagnetize the 
heads. Special cleaning liquids are also available. 

— Be consistent in using a given volume setting when recording and loading your own 
taped programs. 

— Use short tapes and record only one program on each side of the tape. 

— Record a given program several times on the tape. 

If you follow the above suggestions, only minor problems should arise when load- 
ing or saving your own tapes. 

Big problems may arise, however, when you try to load tapes from other sources. 
You must patiently try different volume settings until a good load is accomplished. 
Recording levels will vary from manufacturer to manufacturer and from tape to tape. 
Levels have even been known to vary within a given taped program. 

— Once you correctly load a tape from an outside source, make a copy of it by saving 
it with your own volume settings. 

— Don't hesitate to return a program that you have purchased if you cannot get it to 
load correctly. Not all preprogrammed tapes on the market are perfect, as mass 
duplication of tapes is as yet an "imperfect art." The return rate is high. 

There are products on the market that enhance the recorded data. They make it 
possible to load tapes within a wide range of volume settings. Some are done by hard- 
ware (a "black box" attached between the computer and recorder) and others are 
done by software (which must be loaded in from a cassette). 

Inside the TRS-80 lives a relay that is supposed to turn the recorder's motor on 
or off at the correct time. But relays have been known to stick, so that sometimes the 
recorder may keep on turning after a program has been sucfiessfuUy loaded. At other 
times, you may punch the PLAY button on the recorder and find that the recorder 
reaches the beginning of a prerecorded program before you can type in CLOAD. 

— If this condition persists, don't hesitate to have your Radio Shack store replace the 
relay (within the warranty period, if possible). 
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M. 



BS 



Error 
Subscript out of Range 



CN Can't Continue 



Number 
9 

17 



DD Redimensioned Array 10 



FC Illegal Function Call 



FD Bad File Data 22 



ID TOegal Direct 



LS String Too Long 1 5 



L3 Disk BASIC only 23 



Explanation 

An attempt was made to assign a ma- 
trix element with a subscript beyond 
the DIMensioned range.- 

A CONT was issued at a point where 
no continuable program exists (as af- 



EDITed). 

An attempt was made to DIMension 
a matrix that had been previously 
dimensioned. It is good practice to 
put all DIM statements at the begin- 
ning of your programs. 

An attempt was made to execute an 
operation using an illegal parameter. 

Data input from an external source 

(aiir'h oo tan(»\ wa<! nnt rnrrp.ct nr was 
^„».— . — [.-J -- 

in improper sequence, etc. 

The use of INPUT as a direct 
command. 

A string variable was assigned a 
acters in length. 

An attempt was made to use a state- 
ment, function, or command that is 
available only when the TRS-80 

pansion Interface. 



274 



APPENDIX C 275 



MO Missing Operand 21 
NF NEXT without FOR 1 

NR No RESUME 18 

Message Error 
OD Out of Data 

OM Out of Memory 7 

OS Out of String Space 14 
OV Overflow 6 

RG RETURN without 3 
GOSUB 

RW RESUME without error 19 

SN Syntax Error 2 

ST String Formula Too 16 
Complex 

TM Type Mismatch 1 3 



An operation was attempted without 
providing one of the required 
operands. 

NEXT is used without a matching 
FOR statement. Also occurs if 
NEXT variable statements are re- 
versed in a nested loop. 

End of program reached in error- 
trapping mode. 

Explanation 

A READ or INPUT # statement 
was executed with insufficient data 
available. DATA statement may 
have been left out or all data may 
have been read from tape or DATA. 

All available memory has been used 
or reserved. Can be caused by large 
matrix dimensions or nested 
branches. 

The amount of string space allocated 
was exceeded. 

A value that was input or was derived 
is too large or too small for the com- 
puter to handle. 

A RETURN statement was encoun- 
tered before a matching GOSUB was 
executed. 

A RESUME was encountered before 
ON ERROR GOTO was executed. 

This usually is the result of incorrect 
punctuation, an open parenthesis, an 
illegal character, or a misspelled 
command. 

A string operation was too complex 
to handle. Break up the operation 
into shorter steps. 

An attempt was made to assign a 
nonstring variable to a string or vice 
versa. 



Number 
4 



276 APPENDIX C 



UE Unprirttable Error 20 An attempt was made to generate an 

error using an ERROR statement 
with an invalid code. 

UL Undefined Line 8 An attempt was made to refer or 

branch to a nonexistent line. 

/O Division by Zero 11 An attempt was made to divide by 

zero. 

NOTE: Some errors are difficult to locate. A program line may look correct on the 
video screen but contain a "hidden error." For example: A SHIFTed character may 
have been typed where an unSHIFTed character was required. (Such as a SHIFTed 
@ in PRINT @ or a SHlFTed variable). Spaces are sometimes important. Examine 
the line carefully for places where spaces should be inserted. If you can't find anything 
wrong with the line which causes an error, try retyping the line. Take care to avoid the 
SHIFT key unless it is required. 



Program Index 



Billy Goat, 223 

Car with Sound, 168 

Center and Four-Corner Mandala, 51 

CHR$ Car Race, 49 

Create a New Data File, 131 

Data File, 137 

Delete Records, 140 

Display Graphic Characters, 43 

Examine Records, 144 
Exploring EXP, 245 

Fancy Mandala, 53 

Graphics Comparison, 208 

Input File from Disk, 135 

Keyboard to Memory to Tape, 67, 70, 
89 

Keyboard to NAYM$ and NMBR$, 94 

Light a Whole Block, 45 

Make a Tape of Names and Numbers, 75 
Mandala with Sound, 169 
Memory to Screen to Tape, 78 

Oracle, 233 

Paint Horizontal Lines, 37, 38 



Paint it White, 48, 54 
Paint Part of the Screen White, 63 
Paint Screen and Poke Holes, 117 
Paint Vertical Lines, 37 
Personal Phone Directory, 104 
Personal Telephone Directory, 93 
POKE Black Holes, 45 
PRINT Black Holes, 48 
Punch Black Holes, 54 

READ and Use Duectory, 97 
READ 10 Names and Numbers, 75 
ROM PEEK, 12 

Shape Maker, 213 

SIN Plot, 241 

Sound Generator, 160 

Sound Producer, 165 

Store Names and Phone Numbers, 104 

STRINGS Car Race, 55 

Tape to Memory to Screen, 68, 70, 78, 89 

Target Practice, 167 

The Shaker, 218 

Three-Car Dragster Race, 45, 47 

TRS-80 Art, 258, 265 

TRS-80 Billboard Display, 222 

Valentine's Card, 251, 263 

Wag Tail and Move Dog, 64 
Wag the Tail, 63 
Write Text, 171 
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ABS, 235 

Absolute value, 235 

Add records to data file, 137, 145 

Address numbers, 13 

Amplifier/speaker, 157 

Angle, 238 

Arctangent, 245 

Arithmetic functions, 229 

Arithmetic function summary, 247 

ASCII code, 47 

ATN, 245 

AuXiiliu y piOgiaiiii, CiiSkC, i v/ i 

AUX jack, cassette recorder, 158 

Backup copy, TRSDOS, 110, 124 
Backup program, 110, 122 
Bad subscript error, 198, 200 
BASIC, 7 

BASIC programs, 7 
BASIC ROM, 15, 28 
Binary digits, 13 
Bits, 13 

BREAK key, 39, 173, 198 
Buffer, 130 
Bulk eraser, 115 
Byte, 13, 186 

Cartesian system, 238 

Cassette file, 74 

Cassette output port, 159 

Cassette record, 74 

Cassette to speaker/amplifier, 157 

CDBL, 230 

Central Processing Unit (CPU), 8, 31 
Chios, 13 

CHR$, 35, 47, 205, 219, 225 
CHR$(23), 220 
CHR$(28), 220 
CI NT 23 1 

CLOAD, 66, 83, 158 



CLOSE disk file, 129, 135, 146, 151 

CMD "S", 133, 139 

Coordinates, 238 

Copying disks, 113 

COS, 243 

Cosine, 243 

CPU, 7, 8, 31 

Create a data file, 137, 145 
CSAVE, 66, 83, 158 
CSNG, 230 

DATA, 65, 89, 153 

DEF, 196 
DEFDBL, 202 
DEFINT, 202 
DEFSNG, 202 
DEFSTR, 202 

Delete records from data file, 137, 146 

Destination disk, 110, 124 

DIM, 186, 198 

DIR, 123, 139, 140 

Disk auxiliary programs, 107 

DISK BASIC, 123, 129 

Disk executive program, 107 

f, UlSK lUC UUCCluiy, lUJ, liu, ix.-r 

Disk files, 117, 129 

Disk operating system, TRS-80, 105 

Double precision, 240 

DRIVE 0, 107, 121, 124 

DRIVE 1, 121, 125 

Duration of sound, 160 

EAR jack, cassette iccoiuci, 15S 

Edit functions of MICRO MUSIC, 177 

End of file, cassette, 74 

ERL, 202 

ERR, 199, 201 

Error message, 196 

Error summary, 201 

Executive program, disk, 107 
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EXP, 245 

File, cassette, 74 

FUe directory, disk, 105, 116, 124, 134 
FIX, 235 

FOR-NEXT loop, 37, 160, 196 
FRE, 204 

Free memory, 18, 19 
Free memory space, 17 
Frequency of sound, 160 

GOSUB, 251 
GOTO, 173 

Graphic characters, 35, 40, 41 
Graphic codes, 35, 42, 47 
Graphic positions, 35 

HOW MANY DISK FILES?, 130 

Index, 198 

INPUT, 65, 213, 234 

Input a data file from disk, 137, 145 

INPUT #1, 135, 152 

INPUT #-1, 65, 69, 83, 89 

INT, 229 

Integer, 184 

Inverse trigonometric function, 245 

Keyboard memory, 13 
KILL, 139 

Leader, tape, 70 
LINE INPUT, 131, 152 
LOG, 246 

Low location (of memory), 14 

Machine language program, 17 
Machine language subroutine, 157, 178 
Mandala, 35, 50 
MEM, 17, 183 
Memory, 7 
Memory buffer, 130 
Memory Land, TRS-80, 7 
Memory location, 13, 15, 40, 172 
Memory Map, 15 

MEMORY SIZE?, 7, 9, 16, 31, 157, 162, 169 

Memory summary, 31 

Memory use by computer size, 14 

Memory, video screen, 28 

MICRO MUSIC, 157, 173, 178 

MUSIC, 175 

Natural logarithms, 246 
NEW, 183 

NO MORE NAMES, 77 
Nonmagnetic leader, 70 

ON ERROR GOTO, 197, 200, 258 
OPEN, disk file, 117, 129, 130, 135, 151 
OUT, 159 

Out of memory error, 198, 200 
Out of string space error, 198, 200 



OV (Overflow error), 196 

PEEK, 7, 9, 20, 22, 23, 31 
PEEK function, 9 
Phone Directory Menu, 143 
POINT, 256, 259 

POKE, 7, 22, 24, 31, 35, 42, 166, 205, 207 

Polar coordinate system, 239 

PRINT, 68 

PRINT @, 40, 210 

Print position, 36, 40 

PRINT #1, 131, 152 

PRINT #-1, 65, 68, 83, 89 

Radians, 240 

Radio Shack amplifier/speaker, 178 

Radius, 238 

RAM, 7, 13, 31 

RAM, reserved, 15 

RAM, user, 15, 28 

Random access disk files, 130 

Random Access Memory (RAM), 13, 24, 31 

READ, 65, 89 

Read only memory (ROM), 8, 23, 31 

Record, cassette, 74 

Record, disk, 129 

RESET, 35, 258 

RESET button, 73 

Reserved RAM, 15, 28 

RESTORE, 255 

RESUME, 197, 201, 258 

RETURN, 255 

RND, 229 

ROM, 7, 9, 31 

Saving a BASIC program on disk, 117 
Sequential disk flies, 130 
Sequential input, 130, 135 
Sequential output, 130 
SET, 35, 205, 257, 259 
SGN, 233 
SIN, 240 
Sine, 238 

Smgle precision, 173 
Source disk, 110, 124 

Space reserved for machine language routines, 16 
Speaker/amplifier, 157 
Special features of MICRO MUSIC, 177 
SQR, 237 

Square root function, 236 
Stack, 16 

STRINGS, 35, 54, 207, 210, 225 
Syntax error, 183 
SYSTEM, 175 

TAN, 244 

Tangent function, 244 
Tape leader, 70 
Tiny rectangle of light, 36 
Top location (of memory), 14 
Trigonometric functions, 238 
TRSDOS, 105, 106, 124 
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TRSDOS backup copy, 124 
TRSDOS diskette, 107, 110, 124 
TRS-80 BASIC, 8 
TRS-80 disk operating system, 105, 
122 

TRS-80 Level II memory map, 15 
TRS-80 Memory Land, 7 
TRS-80 memory summary, 31 
Two-disk system, 121 



Usable memory, 14 

User RAM, 15, 28 

USR (user function), 157, 161, 178 

Video memory, 13, 40 
Video print positions, 35 
Video screen, 7 
Video screen memory, 28 
Verifying disks, 113, 114 
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MORE TRS-80''' BASIC 



By Don Inman, Ramon Zamora, and Bob Albrecht 

Here is an exciting new interactive programming gufde to advanced functions, A sequel to 
the authors' highly popular book TRS-80 BASIC, MORE TRS-80 BASIC helps you build on 
your fundamental knowledge of Level II Basic with scores of practical applications that are 
both recreational and educational It explains all TRS-SO Level II BASIC statements, 
commands, and features not covered in their previous best seller. 

Along with an exploration of the PEEK and POKE functions of the TRS-80 Model 1, you'll 
get a clear demonstration of several different methods to display graphics, including little 
known "super graphics" techniques. Graphics become both fascinating and fun when you 
learn how to use TRS-80 string operations and functions like SET, POKE, and CHR$ to 
animate characters, games, and drawings. 

You'll explore vital concepts in information processing and master file handling techniques 
that apply to both cassette and disk files. You^l also discover many "universaF' applications 
easily adaptable to specific problems. 

MORE TRS-80 BASIC is one of the Wiley SelMeaching Guides. If s been carefully written 
so that we're sure you can broaden your understanding of Level 11 BASIC and expand your 
programming ability in order to make fuH use of your computing equipment. And it's self- 
instructional— so you work at your own pace. Only a beginning background in Level II 
BASIC is needed. 

Don Inman, Ramon Zamora, and Bob Albrecht are all associated with Dymax Corporation 
of Menio Park, California They have written TRS-SO BASIC (a Wiley SeH- Teaching Guide) 
and are editors of Recreational Computing. Albrecht is co-author of three other Wiley Self- 
Teaching Guides: BASiQ BASIC for Home Computers, and ATARI BASIC. 



Look for these and other popular microcomputer paperbacks from Wiley at your favorite 
bookstore or computer shop: 



Albrecht, Finkel, & Brown— BASIC, 2nd 

Albrecht, Finkel, & Brown— BASIC for 

Home Computers 

Albrecht, Inman, & Zamora — TRS-80 

BASIC 

Inman, Zamora, & Albrecht— More 
TRS-80 BASIC 

Albrecht, Finkel, & Brown — ATARI 
BASIC 

Finkel & Brown— Data File 
Programming in BASIC 
Fhedmann, Green berg, & Hoffberg — 
FORTRAN IV, 2nd ed, 
Ashley— ANS COBOL, 2nd ed. 
Ashley— Structured COBOL 
Fernandez & Ashley— Using CP/M 



Ashley & Fernandez — Job Control 
Language 

Harris — Introduction to Data 

Processing, 2nd ed. 

Ashley— Background Math for a 

Computer World, 2nd ed. 

Stern — Flowcharting 

Leventha! & Stafford— Why Do You 

Need a Personal Computer? 

McGlynn — Personal Computing 

Fernandez & Ashley — Introduction to 

8080/8085 Assembly Language 

Programming 

Miller— 8080/Z80 Assembly Language: 
Techniques for Improved 
Programming, 





Rib a SELF-IE/CHING GUIDE 
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Look for these and other Wiley Self-Teaching Guides at your local bookstore. 
For a complete listing of current and forthcoming STGs, write to: STG Editor 

JOHN WILEY & SONS, INC. 

605 Third Avenue, New York, N.Y. 10158 

New York • Chichester • Brisbane • Toronto ISBN 471 08010-1 
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